[SERVICE] Die Questkontrolle

Page 735 of 845

735

02/05/2015 13:57 rollback#11011

Quote:

Originally Posted by VeyZ

[...]

Funktioniert leider immernoch nicht ..

@[Sensenmann]
Schau mal bitte deine Nachrichten an :)

Hab keinen Fehler gefunden, aber eine Sache war noch doof formatiert:

PHP Code:


			
quest userpanel begin

    state start begin

        when 40002.use begin 

            say("Userpanel:")

            local head = select("Warpring", "Lager", "Informationscenter", "Abbrechen")

            if head == 4 then

                return

            elseif head == 1 then

                say("Teleportpanel")

                local on = select("Map1", "Map2", "Farmmap", "Weiter", "Abbrechen")

                if on == 5 then

                    return

                elseif on == 1 then

                    say("In welches Reich m�chtest du?")

                    local map1 = select ("Rot", "Blau", "Gelb", "Doch nicht")

                    if map1 == 4 then

                        return

                    elseif map1 == 1 then

                        pc.warp(474462, 954500)

                    elseif map1 == 2 then

                        pc.warp(959913, 269179)

                    elseif map1 == 3 then

                        pc.warp(63369, 166149)

                    end

                elseif on == 2 then

                    say("In welches Reich m�chtest du?")

                    local map2 = select("Rot", "Blau", "Gelb", "Doch nicht")

                    if map2 == 4 then

                        return

                    elseif map2 == 1 then

                        pc.warp(352967, 882032)

                    elseif map2 == 2 then

                        pc.warp(145310, 240385)

                    elseif map2 == 3 then

                        pc.warp(863763, 245995)

                    end

                elseif on == 3 then

                    say("Wohin genau?")

                    local eis = select("Mitte", "Doch nicht")

                    if eis == 2 then

                        return

                    elseif eis == 1 then

                        pc.warp(296800, 547100)

                    end

                elseif on == 4 then

                    say("noch leer")

                end

            elseif head == 2 then

                game.open_safebox()

                setskin(NOWINDOW)

            elseif head == 3 then

                say("W�hle in den Kategorien!")

                local s = select("Team", "Dropps", "Events", "Reboots", "Doch nicht")

                if s == 5 then

                    return

                elseif s == 1 then

                    say("[SL]iD0P3")

                    say("[GA] - Gesucht")

                    say("[GM] - Gesucht")

                    say("[BA] - Gesucht")

                    say("[MOD] - Gesucht")

                elseif s == 2 then

                    say("Auf der Farmmap droppt ihr verscheidene bunte Perlen die ihr zum erh�hen eurer Gegenst�nde ben�tigt.")

                    say("Die Farmmap erreicht ihr �ber das Userpanel -> Warpring")

                elseif s == 3 then

                    say("Events wird es geben, wir planen in Zukunft jeden Tag um 19.00 Uhr ein OX-Event zu machen.")

                    say("Gewinnen k�nnt ihr dort Pets,Ringe,Coins usw.")

                elseif s == 4 then

                    say("Reboots werden immer fr�hzeitig im Forum und ingame angek�ndigt.")

                    say("Loggt euch bitte rechtzeitig aus damit ihr keine Items verliert.")

                end

            end

        end

    end

end

Was f�r einen Fehler bekommst du denn beim compilen?

Hab keine Nachricht von dir ... :o

02/05/2015 17:14 .Mosh36#11012

PHP Code:


			
quest userpanel begin
    state start begin
        when 40002.use begin 
            say("Userpanel:")
            local head = select("Warpring", "Lager", "Informationscenter", "Abbrechen")
            if head == 4 then
                return
            elseif head == 1 then
                say("Teleportpanel")
                local on = select("Map1", "Map2", "Farmmap", "Weiter", "Abbrechen")
                if on == 5 then
                    return
                elseif on == 1 then
                    say("In welches Reich m�chtest du?")
                    local map1 = select ("Rot", "Blau", "Gelb", "Doch nicht")
                    if map1 == 4 then
                        return
                    elseif map1 == 1 then
                        pc.warp(474462, 954500)
                    elseif map1 == 2 then
                        pc.warp(959913, 269179)
                    elseif map1 == 3 then
                        pc.warp(63369, 166149)
                    end
                elseif on == 2 then
                    say("In welches Reich m�chtest du?")
                    local map2 = select("Rot", "Blau", "Gelb", "Doch nicht")
                    if map2 == 4 then
                        return
                    elseif map2 == 1 then
                        pc.warp(352967, 882032)
                    elseif map2 == 2 then
                        pc.warp(145310, 240385)
                    elseif map2 == 3 then
                        pc.warp(863763, 245995)
                    end
                elseif on == 3 then
                    say("Wohin genau?")
                    local eis = select("Mitte", "Doch nicht")
                    if eis == 2 then
                        return
                    elseif eis == 1 then
                        pc.warp(296800, 547100)
                    end
                elseif on == 4 then
                    say("noch leer")
                end
            elseif head == 2 then
                game.open_safebox()
                setskin(NOWINDOW)
            elseif head == 3 then
                say("W�hle in den Kategorien!")
                local s = select("Team", "Dropps", "Events", "Reboots", "Doch nicht")
                if s == 5 then
                    return
                elseif s == 1 then
                    say("[SL]iD0P3")
                    say("[GA] - Gesucht")
                    say("[GM] - Gesucht")
                    say("[BA] - Gesucht")
                    say("[MOD] - Gesucht")
                elseif s == 2 then
                    say("Auf der Farmmap droppt ihr verscheidene bunte Perlen die ihr zum erh�hen eurer Gegenst�nde ben�tigt.")
                    say("Die Farmmap erreicht ihr �ber das Userpanel -> Warpring")
                elseif s == 3 then
                    say("Events wird es geben, wir planen in Zukunft jeden Tag um 19.00 Uhr ein OX-Event zu machen.")
                    say("Gewinnen k�nnt ihr dort Pets,Ringe,Coins usw.")
                elseif s == 4 then
                    say("Reboots werden immer fr�hzeitig im Forum und ingame angek�ndigt.")
                    say("Loggt euch bitte rechtzeitig aus damit ihr keine Items verliert.")
                end
            end
        end
    end
end

Die Quest funktioniert immernoch nicht..
Wei� auch nicht warum in VB erscheint kein fehler nach dem einf�gen der Quest..

02/05/2015 17:29 rollback#11013

Quote:

Originally Posted by [iD0P3]

PHP Code:

quest userpanel begin state start begin when 40002.use begin say("Userpanel:") local head = select("Warpring", "Lager", "Informationscenter", "Abbrechen") if head == 4 then return elseif head == 1 then say("Teleportpanel") local on = select("Map1", "Map2", "Farmmap", "Weiter", "Abbrechen") if on == 5 then return elseif on == 1 then say("In welches Reich m�chtest du?") local map1 = select ("Rot", "Blau", "Gelb", "Doch nicht") if map1 == 4 then return elseif map1 == 1 then pc.warp(474462, 954500) elseif map1 == 2 then pc.warp(959913, 269179) elseif map1 == 3 then pc.warp(63369, 166149) end elseif on == 2 then say("In welches Reich m�chtest du?") local map2 = select("Rot", "Blau", "Gelb", "Doch nicht") if map2 == 4 then return elseif map2 == 1 then pc.warp(352967, 882032) elseif map2 == 2 then pc.warp(145310, 240385) elseif map2 == 3 then pc.warp(863763, 245995) end elseif on == 3 then say("Wohin genau?") local eis = select("Mitte", "Doch nicht") if eis == 2 then return elseif eis == 1 then pc.warp(296800, 547100) end elseif on == 4 then say("noch leer") end elseif head == 2 then game.open_safebox() setskin(NOWINDOW) elseif head == 3 then say("W�hle in den Kategorien!") local s = select("Team", "Dropps", "Events", "Reboots", "Doch nicht") if s == 5 then return elseif s == 1 then say("[SL]iD0P3") say("[GA] - Gesucht") say("[GM] - Gesucht") say("[BA] - Gesucht") say("[MOD] - Gesucht") elseif s == 2 then say("Auf der Farmmap droppt ihr verscheidene bunte Perlen die ihr zum erh�hen eurer Gegenst�nde ben�tigt.") say("Die Farmmap erreicht ihr �ber das Userpanel -> Warpring") elseif s == 3 then say("Events wird es geben, wir planen in Zukunft jeden Tag um 19.00 Uhr ein OX-Event zu machen.") say("Gewinnen k�nnt ihr dort Pets,Ringe,Coins usw.") elseif s == 4 then say("Reboots werden immer fr�hzeitig im Forum und ingame angek�ndigt.") say("Loggt euch bitte rechtzeitig aus damit ihr keine Items verliert.") end end end end end

Die Quest funktioniert immernoch nicht..
Wei� auch nicht warum in VB erscheint kein fehler nach dem einf�gen der Quest..

hast du das item auf type 18 gestellt?

02/05/2015 17:43 NexuzChaos#11014

Quote:

Originally Posted by .JayZoN

In Zeile 21 hat eine Klammer gefehlt.

Spoiler

PHP Code:

quest Partisane begin state start begin when login or levelup with pc.level >= 50 begin --level festlegen set_state(information) end end state information begin when letter begin local v = find_npc_by_vnum(9003) --VNUM durch Huanso Value ersetzen if v != 0 then target.vid("__TARGET__", v, "Partisane Quest") end send_letter("Die verlorene Partisane") end when button or info begin say_title("Die verlorene Partisane") say("") say("Gemi braucht deine Hilfe!") say("Gehe zu ihm.") say("") end when __TARGET__.target.click or 9003.chat."Meine verlorene Partisane" begin --VNUM durch Gemi Value ersetzen say("Sei gegr��t, "..pc.get_name().."!") say("Vor einigen Tagen verlor ich meine Partisane.") say("Ich glaube, ich verlor sie auf dem Weg in MAPNAME.") --story beliebig �nderbar say("Sie ist ziemlich wertvoll. K�nntest du sie mir zur�ck bringen?") local s = select("Ja", "Nein, keine Zeit!") if s == 2 then return end say("Vielen Dank. Versuch dein Gl�ck.") say("Dich wird eine tolle Belohnung erwarten.") set_state(weiter) end end state weiter begin when letter begin send_letter("Auftrag: Suche die verlorene Uhr") end when button or info begin say_title("Verlorene Uhr") say("") say("Suche die verlorene Uhr!") --Text evtl noch einf�gen say_item_vnum(3139) end when 101.kill or 102.kill or 103.kill begin local a = math.random(100) if a == 1 then game.drop_item(3139, 1) end end when 20084.chat."Die verlorene Partisane!" with pc.count_item(3139) > 0 begin say("Ohh wie ich sie hast du die Uhr mitgebracht!") say("Vielen Dank!") pc.remove_item(3139, 1) say("Als Belohnung erh�lst du:") clear_letter() set_state(__complete) end end state __complete begin end end

Danke erstmal f�r die Antwort. Die Quest l�sst sich jetzt auf jeden Fall implementieren, jedoch bekommt man keine Nachricht, wenn man die Partisane erhalten hat. Wieso ?

Edit: Hat sich erledigt. Am Schluss wurde die VNUm vom Biologen angegeben. Also danke f�r die Korrektur. Hat man den Fehler eigentlich anhand des Fehler des VPC erkannt oder hast du dir die Quest komplett durchgelesen ? Ich hatte gesehen, dass du den Befehl f�r die Mobs, die das Item droppen verk�rzt hast. :)

02/05/2015 17:50 .Mosh36#11015

Quote:

hast du das item auf type 18 gestellt?

Ja, habe es gerade nochmal �berpr�ft..
Bist du gerade in Skype erreichbar das du dir das mal anschauen kannst?

02/05/2015 18:04 rollback#11016

Quote:

Originally Posted by [iD0P3]

Ja, habe es gerade nochmal �berpr�ft..
Bist du gerade in Skype erreichbar das du dir das mal anschauen kannst?

Ja, einfach adden.

02/05/2015 20:45 NexuzChaos#11017

Ein Ausschnitt aus meiner Quest...

Spoiler

Das ist der Schluss meiner Quest, die ich einbauen will.
Ohne das l�sst sich die Quest implementieren. (ab state n�chstes begin)
Mit dem hier kommt in VPC der Fehler:
Error ocurred on compile "meine Quest"
Ich habe 45 Minuten nach einer L�sung gesucht und keine gefunden...
Ich versuche erst seit kurzem eigene Quests zu schreiben.

02/05/2015 20:49 rollback#11018

n�chstes -> naechstes

02/05/2015 20:52 NexuzChaos#11019

Quote:

Originally Posted by [Sensenmann]

n�chstes -> naechstes

Bereits ausprobiert. Funktioniert nicht.

02/05/2015 21:50 Darryus98#11020

Quote:

Originally Posted by Darryus98

Quest

Code:

 quest cal_militar begin 
   state start begin 
      when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin 
         if horse.is_dead() then 
            say("Calul tau e mort!") 
            say("Readul la viata intai.") 
            say("") 
         elseif pc.level<=54 then 
            say("Nivelul tau este prea mic.") 
            say("") 
         elseif horse.get_level()<=9 then 
            say("Calul tau este prea mic!") 
            say("Antreneaza-ti calul mai intai.") 
            say("") 
         elseif pc.countitem("50050")<1 then 
            say("Nu ai nici o medalie!") 
            say("Fa rost de una intai.") 
            say("") 
            setstate(need_item50050) 
         elseif pc.countitem("50051")<1 then 
            say("Nu ai niic o imagine de cal !") 
            say("") 
         elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then 
            say("Trebuie sa omori 200 de Arcas Demon") 
            say("in 30 de Minute.") 
            say("Doar asa pot fi sigur ca esti calificat") 
            say("pentru a primi un cal militar!") 
            say("") 
            say("Vrei sa incepi testul?") 
            say("") 
            local b=select("Da", "Ehm, nu.") 
            if 1==b then 
               if pc.countitem("50050")>=1 then 
                  pc.removeitem("50050", 1) 
                  setstate(test) 
               end 
            elseif 2==b then 
               say("Revino cand esti pregatit.") 
            else 
               say("UNKNOWN BUTTON ["..b.."]") 
            end 
         else 
            say("") 
            say("Mult noroc.") 
            say("") 
         end 
      end 
   end 
   state need_item50050 begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Medalie de Calarit") 
         q.set_title("Medalie de Calarit") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR) 
         say("Fa rost de o Medalie de Calarit!") 
         setstate(start) 
         q.done() 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR) 
         say("Fa rost de o Medalie de Calarit!") 
         setstate(start) 
         q.done() 
      end 
   end 
   state test begin 
      when letter begin 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
      end 
      when 2105.party_kill begin 
         pc.setqf("kill_count", pc.getqf("kill_count")+1) 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
         if get_time()>=pc.getqf("limit_time") then 
            setstate(failure) 
         end 
      end 
      when 2107.party_kill begin 
         pc.setqf("kill_count", pc.getqf("kill_count")+1) 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
         if get_time()>=pc.getqf("limit_time") then 
            setstate(failure) 
            q.done() 
         end 
      end 
      when letter begin 
         q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time()) 
      end 
      when enter begin 
         pc.setqf("limit_time", get_time()+30*60) 
         pc.setqf("kill_count", 0) 
      end 
      when leave begin 
         q.done() 
      end 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Omoara Demoni Arcas") 
         q.set_title("Omoara Demoni Arcas") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR) 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR) 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
      when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin 
         setstate(report) 
      end 
      when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin 
         setstate(report) 
      end 
      when 20349.chat."Cal Militar" begin 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
   end 
   state report begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Ai reusit") 
         q.set_title("Ai reusit") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR) 
         say("Intoarcete la grajdar.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR) 
         say("Intoarcete la grajdar.") 
      end 
      when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Am reusit!" with horse.get_grade()==1 begin 
         say("Felicitari!") 
         say("Acum am nevoie de timp pentru a face contractul!") 
         say("Revino in 10 minute.") 
         say("Si adu 500.000 Yang.") 
         if is_test_server() then 
            pc.setqf("make_time", get_time()+10) 
         else 
            pc.setqf("duration",get_time()+60*10*) 
         end 
         setstate(wait) 
      end 
   end 

      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Contractul?" with horse.get_grade()==1 begin 
         say("Inca nu am terminat contractul") 
         say("Revino mai tarziu.") 
      end 
   end 
   state buy begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Contractul este gata!") 
         q.set_title("Contractul este gata!") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR) 
         say("Dute la grajdar si ia-l!") 
         say("Si nu uita cei 500.000 Yang.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR) 
         say("Dute la grajdar si ia-l!") 
         say("Si nu uita cei 500.000 Yang.") 
      end 
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin 
         say("COntractul tau este pregatit.") 
         say("Te costa 500.000 Yang.") 
         local b=select("Cumpara", "Mai tarziu", "Anuleaza") 
         if 1==b then 
            if pc.money>=500000 then 
               if pc.countitem("50051")>=1 then 
                  char_log(0, "HORSE_UPGRADE", "BEGIN") 
                  pc.changemoney(-500000) 
                  char_log(0, "HORSE_UPGRADE", "DEC money 500000") 
                  pc.removeitem("50051", 1) 
                  char_log(0, "HORSE_UPGRADE", "DEC 50051 1") 
                  horse.unride() 
                  horse.advance() 
                  horse.ride() 
                  char_log(0, "HORSE_UPGRADE", "INC horse_advance 1") 
                  pc.give_item2("50052", 1) 
                  char_log(0, "HORSE_UPGRADE", "INC 50052 1") 
                  char_log(0, "HORSE_UPGRADE", "END") 
                  say("Felicitari!") 
                  say("Acum ai un cal militar.") 
                  say("Hranestel mereu.") 
                  say("") 
                  setstate(start) 
                  q.done() 
               else 
                  say("") 
               end 
            else 
               say("") 
            end 
         elseif 2==b then 
            say("Ouk pe mai incolo.") 
         elseif 3==b then 
            say("Esti sigur ca vrei sa anulezi Questul?") 
            local b=select("Da", "Nu") 
            if 1==b then 
               setstate(start) 
               q.done() 
            elseif 2==b then 
            else 
               say("UNKNOWN BUTTON ["..b.."]") 
            end 
         else 
            say("UNKNOWN BUTTON ["..b.."]") 
         end 
      end 
   end 
   state failure begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Misiune esuata") 
         q.set_title("Misiune esuata") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR) 
         say("Nu ai reusit sa treci testul") 
         say("") 
         say("Dute la grajdar, pentru a repeta misiunea!") 
         setstate(start) 
         q.done() 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR) 
         say("Nu ai reusit sa treci testul") 
         say("") 
         say("Dute la grajdar, pentru a repeta misiunea!") 
         setstate(start) 
         q.done() 
      end 
   end 
   state __COMPLETE__ begin 
      when enter begin 
         q.done() 
      end 
   end 
end

Error

Code:

cal_militar.quest:162: syntax error : [string "reporthorse . get_grade ( ) == 1"]:8: unexpected symbol near `)'
Abort (core dumped)

Hilfe bitte ^-^ :handsdown:

^-^

02/05/2015 21:50 rollback#11021

Ich wollte einen Questbefehl erstellen, mit dem man Ingame Questbefehle eingeben kann damit die direkt ausgef�hrt werden ... hat leider nicht so ganz geklappt. Vielleicht kann mir ja jemand helfen:

PHP Code:


			
function execute_command_from_input()
    local input1 = input()
    local input2 = input()
    return input1..input2
end

(2 inputs f�r l�ngere befehle)

Die beiden Inputs erscheinen auch, wenn ich in eine Quest "execute_command_from_input()" Eintrage, aber der eingegebene Befehl wird nicht ausgef�hrt ...

02/05/2015 23:08 ASFIREx3#11022

Quote:

Originally Posted by ASFIREx3

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

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

Quest

Code:

quest guild_manage begin
    state start begin	
		when 11000.chat."Gilde verlassen" or 11002.chat."Gilde verlassen" or 11004.chat."Gilde verlassen" with pc.hasguild() and not pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin
		   say_title("W�chter des Dorfplatzes")
			say("M�chtest du deine Gilde wirklich")
			say("verlassen? Ich denke deine Member")
			say("werden entt�uscht von dir sein..")
			local s = select("Ja", "Nein")
			if s==1 then
				say_title("W�chter des Dorfplatzes")
				say("Du bist nun wieder Gildenlos!")
				pc.remove_from_guild()
				pc.setqf("new_withdraw_time",get_global_time())
			end
		end
		when 11000.chat."Gilde aufl�sen" or 11002.chat."Gilde aufl�sen" or 11004.chat."Gilde aufl�sen" with pc.hasguild() and pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin
			say_title("W�chter des Dorfplatzes")
			say("M�chtest du deine Gilde wirklich")
			say("aufl�sen? Ich denke deine Member")
			say("werden entt�uscht von dir sein..")
			local s = select("Ja", "Nein")
			if s==1 then
				say_title("W�chter des Dorfplatzes")
				say("Deine Gilde ist nun aufgel�st!")
				pc.destroy_guild()
				pc.setqf("new_disband_time",get_global_time())
				pc.setqf("new_withdraw_time",get_global_time())
			end
		end
		when 11000.chat."Gilde gr�nden" or 11002.chat."Gilde gr�nden" or 11004.chat."Gilde gr�nden" with not pc.hasguild() and not pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin	    
			if game.get_event_flag("guild_withdraw_delay")*86400 > 
			get_global_time() - pc.getqf("new_withdraw_time") or
			game.get_event_flag("guild_disband_delay")*86400 > 
			get_global_time() - pc.getqf("new_disband_time")	then
				say_title("W�chter des Dorfplatzes")
				say("Du kannst jetzt noch keine neue Gilde gr�nden!")
				say("Warte noch eine Weile!")
				return
			end
			say_title("W�chter des Dorfplatzes")
			say("Um eine neue Gilde zu gr�nden")
			say("brauchst du:")
			say("-Level 40")
			say("-Gilden Ticket")
			say("M�chtest du eine Gilde gr�nden?")
			local s = select("Ja", "Nein")
			if s == 2 then
				return
			elseif pc.get_level()<40 then
				say_title("W�chter des Dorfplatzes")
				say("Du bist noch nicht Level 40.")
				return
			elseif pc.count_item(2)<1 then
				say_title("W�chter des Dorfplatzes")
				say("Du hast keine Gilden Ticket")
				return
			end			
			game.request_make_guild()
		end
		pc.remove_item(2, 1)
    end
end

02/05/2015 23:22 .Delta#11023

schreib das pc.remove_item(2, 1)
vor das end dar�ber.
also
pc.remove_item(2, 1)
end

02/05/2015 23:57 NexuzChaos#11024

Ich habe meine Quest ein bisschen weiter bearbeitet und wie solls anders sein als Neuling, nat�rlich wieder ein Fehler drinn, welchen ich nicht finde.
VPC spuckt folgendes aus:
betrunkener_buerger.quest:148:syntax error: [string betrunkener_buerger2]:8:�=� expected near �<eof>�

Spoiler

PHP Code:


			
end

        when __TARGET__.target.click or 

            20041.chat."Meine Geschichte" begin

            say_title("Neue Informationen")

            say("")

            say("Ich habe nun herausgefunden, was die Namen")

            say("in der Gravur bedeuten...")

            say("Das J steht f�r Johanna und das L f�r Lukas.")

            say("Bestimmten Quellen zufolge soll Lukas angeblich")

            say("mein Name sein...")

            say("Au�erdem soll Johanna nicht eine Frau gewesen sein,")

            say("sondern meine...")

            wait()

            say("Das ist einfach unglaublich.")

            say("Wir haben bereits einen riesigen Schritt nach vorne gemacht")

            say("Jetzt stellt sich aber nur die Frage, was passiert")

            say("sein muss, dass ich in so eine tiefe Depression verfallen bin...")

            say("Au�erdem stellt sich mir die Frage, wo meine Frau ist...")

            say("Hoffentlich ist ihr nichts zugesto�en...")

            say("")

            say("Ich brauche unbedingt weiter deine Hilfe.")

            wait()

            say("Da wir mittlerweile wissen, dass sie sich anscheinend mal")

            say("im Orktal befand, sollte sie dort doch irgendwo hingegangen sein.")

            say("Ich bef�rchte, dass sie Schutz vor den Orks gesucht hat und in den")

            say("Tempel in der Mitte vom Orktal geflohen ist...")

            say("Am besten suchst du dort nach Spuren von ihr.")

            set_state(Hwang_Temple)

        end

    end

    state Hwang_Temple begin

        when letter begin

            send_letter("Auftrag:Im Hwang Tempel nach Spuren suchen")

        end

        when button or info begin

            say_title("Hwang Tempel")

            say("")

            say("Begib dich in den Hwang Tempel und suche dort nach Spuren")

            say("Vermutlich findest du am besten bei den Gegnern an der Spitze Spuren...")

        end

        when 1301.kill or 1302.kill or 1305.kill or 1331.kill or 1332.kill or 1335.kill begin 

            local a = math.random(200) 

            if a == 1 then 

                game.drop_item(50029, 1) 

            end

        end

        when 20041.chat."Der verlorene Schmuck!" with pc.count_item(50029) > 0 begin

            say("Oh wow, unglaublich...")

            say("Schon wieder ein Schmuckgegenstand...")

            say("Hmm ein Ring mit einem hohen Goldgehalt.")

            say("Wir wissen jetzt auf jeden Fall, dass sie sich im Tempel ganz oben befand.")

            say("Nur warum ist die Frage...")

            say("Wie konnte sie dies alles nur �berleben?!")

            say("Sie muss sehr stark sein.")

            say("Ich werde mich auf jeden Fall um den Ring k�mmern und nach weiteren")

            say("Informationen ausschau halten.")

            say("Ich danke dir f�r deine gro�artige Hilfe.")

            say("Hier deine Belohnung!")

            say_reward("Du erh�lst dauerhaft 1000TP")

            say_reward("Du erh�lst 5.000.000 Yang")

            affect.add_collect(apply.MAX_HP, 1000, 60*60*24*365*60) 

            pc.change_money(5000000)

        end

    end

end

02/06/2015 06:54 G.I Duke#11025

Quote:

Originally Posted by NexuzChaos

Ich habe meine Quest ein bisschen weiter bearbeitet und wie solls anders sein als Neuling, nat�rlich wieder ein Fehler drinn, welchen ich nicht finde.
VPC spuckt folgendes aus:
betrunkener_buerger.quest:148:syntax error: [string betrunkener_buerger2]:8:�=� expected near �<eof>�

Spoiler

PHP Code:

end when __TARGET__.target.click or 20041.chat."Meine Geschichte" begin say_title("Neue Informationen") say("") say("Ich habe nun herausgefunden, was die Namen") say("in der Gravur bedeuten...") say("Das J steht f�r Johanna und das L f�r Lukas.") say("Bestimmten Quellen zufolge soll Lukas angeblich") say("mein Name sein...") say("Au�erdem soll Johanna nicht eine Frau gewesen sein,") say("sondern meine...") wait() say("Das ist einfach unglaublich.") say("Wir haben bereits einen riesigen Schritt nach vorne gemacht") say("Jetzt stellt sich aber nur die Frage, was passiert") say("sein muss, dass ich in so eine tiefe Depression verfallen bin...") say("Au�erdem stellt sich mir die Frage, wo meine Frau ist...") say("Hoffentlich ist ihr nichts zugesto�en...") say("") say("Ich brauche unbedingt weiter deine Hilfe.") wait() say("Da wir mittlerweile wissen, dass sie sich anscheinend mal") say("im Orktal befand, sollte sie dort doch irgendwo hingegangen sein.") say("Ich bef�rchte, dass sie Schutz vor den Orks gesucht hat und in den") say("Tempel in der Mitte vom Orktal geflohen ist...") say("Am besten suchst du dort nach Spuren von ihr.") set_state(Hwang_Temple) end end state Hwang_Temple begin when letter begin send_letter("Auftrag:Im Hwang Tempel nach Spuren suchen") end when button or info begin say_title("Hwang Tempel") say("") say("Begib dich in den Hwang Tempel und suche dort nach Spuren") say("Vermutlich findest du am besten bei den Gegnern an der Spitze Spuren...") end when 1301.kill or 1302.kill or 1305.kill or 1331.kill or 1332.kill or 1335.kill begin local a = math.random(200) if a == 1 then game.drop_item(50029, 1) end end when 20041.chat."Der verlorene Schmuck!" with pc.count_item(50029) > 0 begin say("Oh wow, unglaublich...") say("Schon wieder ein Schmuckgegenstand...") say("Hmm ein Ring mit einem hohen Goldgehalt.") say("Wir wissen jetzt auf jeden Fall, dass sie sich im Tempel ganz oben befand.") say("Nur warum ist die Frage...") say("Wie konnte sie dies alles nur �berleben?!") say("Sie muss sehr stark sein.") say("Ich werde mich auf jeden Fall um den Ring k�mmern und nach weiteren") say("Informationen ausschau halten.") say("Ich danke dir f�r deine gro�artige Hilfe.") say("Hier deine Belohnung!") say_reward("Du erh�lst dauerhaft 1000TP") say_reward("Du erh�lst 5.000.000 Yang") affect.add_collect(apply.MAX_HP, 1000, 60*60*24*365*60) pc.change_money(5000000) end end end

Wie w�rs denn mit der kompletten Quest statt nur einem Teil
davon?

Page 735 of 845

735