[SERVICE] Die Questkontrolle

Page 227 of 845

227

09/06/2011 16:25 savebord#3391

@ Syran.™

#Edit:
Aber Okay, so sollte gehen wenns das ist was du wolltest meine ich.
Also habe die halt gek�rzt. Waren 2 mal dieselbe Quest hintereinander koppiert:

Spoiler

PHP Code:


			
quest npc_shop begin
    state start begin
        when 20092.chat."Seelengrotte 1. Etage" begin
            say_title("Hallo, ".. pc.get_name() ..".")
            say("")
            say("Du willst also Wirklich zur Seelengrotte 1?")
            say("Gut, aber ich warne dich!")
            say("In dieser Map gibt es,")
            say("sehr Starke Kreaturen!")
            say("Ich kann dir ein paar Infos �ber sie geben!")
            say("")
            say_reward("Was willst du machen?")
            local a = select("Teleportieren","Information","Abbrechen")
            if a == 1 then
            say_reward(" ".. pc.get_name() .." ")
            say("")
            say("Das war eine gute entscheidung")
            say("Ich w�nsche dir viel Spass!")
            say("")
            wait()
            pc.warp(10000,1214200)
                return
            end
            
            if a == 2 then
            say_reward("Was willst du wissen?")
            say("")
            local t = select("Information: Monster","Information: Dropps","Abbrechen")
            if t == 1 then
            say_title("Informationen �ber die Monster")
            say("In dieser Map gibt es Starke Monster")
            say("Diese Monster sind im durschnitt,")
            say("sehr Stark, also sei Vorsichtig!")
            say("")
            say_reward("Durschnitt Level der Monster:")
            say("1.Level 84 Unterwelt-Yeti")
            say("2.Level 81 Unterwelt-Eiskillerwal")
            say("3.Level 83 Unterwelt-Eismann")
            say("4.Level 81 Unterwelt-Eissplitter")
            say("5.Level 83 Unterwelt-Eisl�we")
            say("")
            say_reward("Bonis gegen diese Monster:")
            say("1.Stark gegen Monster")
            say("2.Stark gegen Tiere")
                return
            end
            if t == 2 then
            say_title("Information �ber die Dropps")
            say("In dieser Map Droppst du nichts besonderes")
            say("Du droppst einfache Crap sachen")
            say("")
            say_reward("In dieser Map Droppst du:")
            say("1.Drachengottpanzer")
            say("2.Seelenplattenpanzer")
            say("3.Morsche Holzkiste")
            say("4.Fuchsienanzug")
            say("5.Kleidung der Baronin")
            say("")
            say_reward("Sachen mit hohem Wert:")
            say("1.Truhe der Gro�en Eishexe")
            say("")
                return
            end
            if t == 3 then
                return
            end
            if a == 3 then
                say_reward(" ".. pc.get_name() .." ")
                say("")
                say("Du hast es dir also anders �berlegt?")
                say("Dann bleib erst einmal hier.")
                say("")
                    return
                end
            end
        end
    end
end

09/06/2011 17:03 !NOTFALL!#3392

Es waren nicht zweimal dieselben, einmal war es f�r Seelengrotte 1 und einmal f�r Seelengrotte2.

09/06/2011 17:16 .Karuzo#3393

Jo ich will beide zusammen haben

09/06/2011 23:44 SimpTrixakaHero#3394

Bei der quest wenn ich sie einsetze und wenn man dann den Namen eingibt wen man killen will es passiert nichts das fenster schlie�t sich dann einfach wei� jemand woran das liegt? Hier die Quest:

PHP Code:


			
quest kill begin

    state start begin

        when 30036.use with pc.get_gold() >= 100000000 begin

            if get_time() >= pc.getqf("killdelay") and not pc.getqf("killdelay") == "" then

                local t = pc.getqf("killdelay") - get_time()

                local tt = t/60/60

                say("Du musst "..tt.." Minuten warten..")

                return

            end

            say("Das T�ten kostet dich 500.000.000 Yong.")

            say("Zudem brauchst du mindestens Level 150.")

            say("M�chtest du jemanden t�ten?")

            local abfrage = select("Weiter", "Abbrechen")

            if abfrage == 2 then

                return

            elseif abfrage == 1 then

                local a = input()

                local b = pc.get_name()

                if a == pc.is_gm() then

                    say("Du Kannst Keinen GameMaster t�ten!")

                    mob.spawn(2291, 1)

                    pc.change_gold(-100000000)

                    say("Der Versuch war Strafbar und somit")

                    say("wurden Dir 100.000.000 Yong abgezogen!")

                    notice(" Der Spieler "..b.." wollte einen GameMaster T�ten!")

                    notice("Folge dessen ist, Das Ein Roter Drache Gespawnt wurde")

                    notice("Solltet ihr durch den Roten Drachen sterben, bedankt")

                    notice(" bei spieler "..b.." Ende Der Durchsage! ")

                elseif pc.get_level() <= 149 and not a == pc.is_gm() then

                    say("Dein Level reicht nicht aus.")

                elseif pc.get_level() > 149 and not a == pc.is_gm() and pc.get_gold() >= 500000000 then

                    pc.change_gold(-500000000)

                    command("kill "..a.."")

                    say("Der Spieler Wurde Erfolgreich Umgebracht")

                    notice("Der Spieler "..a.." wurde von "..b.." umgebarcht")

                    pc.setqf("killdelay", get_time()+10*60)

                elseif pc.get_level() > 149 and not a == pc.is_gm() and pc.get_gold() < 500000000 then

                    say("Du hast nicht genug Yong")

                    say("um diese Macht zu besitzen!")

                end

            end

        end

    end

end

09/07/2011 21:33 F O R S E N B O Y S#3395

PHP Code:


			
quest kill begin 

    state start begin 

        when 30036.use with pc.get_gold() >= 100000000 begin 

            if get_time() >= pc.getqf("killdelay") and not pc.getqf("killdelay") == "" then 

                local t = pc.getqf("killdelay") - get_time() 

                local tt = t/60/60 

                say("Du musst "..tt.." Minuten warten..") 

                return 

            end 

            say("Das T�ten kostet dich 500.000.000 Yong.") 

            say("Zudem brauchst du mindestens Level 150.") 

            say("M�chtest du jemanden t�ten?") 

            local abfrage = select("Weiter", "Abbrechen") 

            if abfrage == 2 then 

                return 

            elseif abfrage == 1 then 

                local a = input() 

                local b = pc.get_name() 

                if a == pc.is_gm() then 

                    say("Du Kannst Keinen GameMaster t�ten!") 

                    mob.spawn(2291, 1) 

                    pc.change_gold(-100000000) 

                    say("Der Versuch war Strafbar und somit") 

                    say("wurden Dir 100.000.000 Yong abgezogen!") 

                    notice(" Der Spieler "..b.." wollte einen GameMaster T�ten!") 

                    notice("Folge dessen ist, Das Ein Roter Drache Gespawnt wurde") 

                    notice("Solltet ihr durch den Roten Drachen sterben, bedankt") 

                    notice(" bei spieler "..b.." Ende Der Durchsage! ") 

                elseif pc.get_level() <= 149 and not a == pc.is_gm() then 

                    say("Dein Level reicht nicht aus.") 

                elseif pc.get_level() > 149 and not a == pc.is_gm() and pc.get_gold() >= 500000000 then 

                    pc.change_gold(-500000000) 

                     local a = input() 

                     local b = pc.get_name() 

                    command("kill "..a.."") 

                    say("Der Spieler Wurde Erfolgreich Umgebracht") 

                    notice("Der Spieler "..a.." wurde von "..b.." umgebarcht") 

                    pc.setqf("killdelay", get_time()+10*60) 

                elseif pc.get_level() > 149 and not a == pc.is_gm() and pc.get_gold() < 500000000 then 

                    say("Du hast nicht genug Yong") 

                    say("um diese Macht zu besitzen!") 

                end 

            end 

        end 

    end 

end

Versuch's mal.

09/08/2011 00:30 Benhero#3396

�h geht nicht :)

Ein Spieler kann KEINE

PHP Code:


			
 command("kill "..a.."")

Befehle benutzen.
Zudem:

PHP Code:


			
local a = input()  
local b = pc.get_name()  
if a == pc.is_gm() then

�berpr�ft das nicht ob der Spieler einen GM als Ziel gew�hlt hat.

Mfg.

09/08/2011 15:14 KillHumans#3397

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

That do it only in warrior mental, i can't put point in skills!

09/08/2011 15:30 spielmitmir#3398

@ KIllHumans. This is a Thread of Quests and not any other problems of your server!

AS: Need Quest_funktion of "change_name"

09/08/2011 15:31 KillHumans#3399

I need quest_funktion of change_name?

But that problem is not only in virtualbox, a quest do it, but are no how is the quest :)

09/08/2011 21:22 IRoxasI#3400

what you�ve tried to implement ? can you post it ?

09/09/2011 03:07 KillHumans#3401

How is the code to show item (image) in script?

09/09/2011 13:05 savebord#3402

Post the quest where the problem made with. (ma english ist bad :D )

09/10/2011 00:49 hr4rjuku#3403

Hallo -.- Ich hab mal 3 Quests zu verbessern. W�r sehr dankbar wenn sich die mal jemand anschaun k�nnte.

1. Ritterlich. Funzt nicht wenn ich auf das item klick

Spoiler

2. Mob_dropp_item.txt irgendwie droppt man von den metins nix und b�ssenauch nich -.-

Spoiler

3. Die funzt auch nich so ganz^^

Spoiler

PHP Code:


			
quest spielautomat begin
    state start begin
        when NPCVNUM.chat."Spielautomat" begin
            say ( "Hallo" )
            say ( "M�chtest du dein Gl�ck auf die Probe stellen?" )
            say ( "Die Regeln sind einfach" ) 
            say ( "Wenn du 3 mal den gleichen Stein erh�ltst")
            say ( "gewinnst du einmal 6/7 ver�ndern" ) 
            say ( "Viel Gl�ck!" ) 
            say_reward ( "Eine Runde kostet 250.000 Yang" )
            say("")
            say ( "M�chtest du spielen?" )  
            local s = select ("Ja" , "Nein")
            if s == 2 then
                say ( "Ich verstehe .. Gl�cksspiel ist nichts f�r Sie." )
                say ( "Wenn sie es sich anders �berlegt haben schauen sie" )
                say ( "doch nochmal vorbei" )
                return
            elseif s == 1 then
                if pc.gold < 250000 then
                    say ("Sie haben nicht genug Yang!")
                    say ("")
                    say ("Kommen sie wieder wenn sie 250000 Yang besitzen")
                    return 
                else    
                    pc . changegold (  - 250000 )
                    local s = number(28700, 28701, 28702, 28703, 28704, 28705, 28706, 28707, 28708, 28709, 28710, 28711, 28712, 28713)
                    local m = number(28700, 28701, 28702, 28703, 28704, 28705, 28706, 28707, 28708, 28709, 28710, 28711, 28712, 28713)
                    local l = number(28700, 28701, 28702, 28703, 28704, 28705, 28706, 28707, 28708, 28709, 28710, 28711, 28712, 28713)
                    say_item ( "." , s , "" )
                    wait()
                    say_item ( "." , m , "" )
                    wait()
                    say_item ( "." , l , "" )
                    wait()
                    if m == s and l or s == m and l or l == m and s then
                        say_reward("Herzlichen Gl�ckwunsch!Du hast 6/7 ver�ndern gewonnen.")
                        pc . give_item2 ( 71052 )
                    else
                        say_reward("Du hast leider nicht gewonnen!")
                    end
                end
            end
        end
    end
end