[SERVICE] Die Questkontrolle

Page 216 of 845 « First 116166206214215 216 217218226266316716 Last »
08/26/2011 18:23 F4m0uZStYle#3226
PHP Code:
quest wanted_paper begin
    state start begin
        when 19292.use begin
            say_title("Hallo Gamer")
            say("Möchtest du Deine Infos abrufen?")
            local s1 = select("Ja", "Nein")
            if s1 == 1 then
            say_reward("Das Infoblatt listet die Infos auf")
            say("")
            say("Helper: Pn einen GameMaster")
            say("")
            elseif s1 == 2 then
             return
           end
        end
    end  
end 
so klappts
08/26/2011 18:28 savebord#3227
Danke Klappt Super.
Habe mich ja schon bedankt. :)
Zwar falsche Section, AAABER ich hab mich
bedankt :D
08/26/2011 19:04 .Nguyen#3228
Quote:
Originally Posted by .TuX View Post
Ne ^^ wollte ja eigendlich das wenn man 50002 benutzt Teleporten und verwandeln steht wenn man auf verwandeln klickt das dann meine Verwandlungs quest ausgeführt wird und bei Teleport soll Teleport quest... ^^
Musst die Quest auch posten damit es gemacht werden kann.
08/26/2011 20:26 .Keyto#3229
Quote:
Originally Posted by .Nguyen View Post
Musst die Quest auch posten damit es gemacht werden kann.
Hatte ich S . 323 schon gepostet aber egal hier nochmal :

PHP Code:
quest Verwandlungs_Quest begin  
    state start begin  
        when 50002.use begin  
            say("In was möchtest du dich verwandeln?")  
            local s = select("Wildhund", "OberOrk", "Roter-Drache", "Wasser-Drache", "Sensenman", "Weiter", "Abbrechen")  
            if s == 1 then  
                say("Du wurdest Verwandelt!")  
                pc.polymorph(101, 1700)  
            elseif s == 2 then  
                say("Du wurdest Verwandelt!")  
                pc.polymorph(692, 1700)  
            elseif s == 3 then  
                say("Du wurdest Verwandelt!")  
                pc.polymorph(2291, 1700)  
            elseif s == 4 then  
                say("Du wurdest Verwandelt!")  
                pc.polymorph(2493, 1700)  
            elseif s == 5 then  
                say("Du wurdest Verwandelt!")  
                pc.polymorph(1093, 1700)  
            elseif s == 6 then      
                say("In was m?chtest du dich verwandeln?")  
                local w = select("Geister Orkfuehrer", "DaemonenKing", "Blauer Tod", "Große Wuesten Schildkroete", "Dunkler Wuesten Schildkroete", "Zurück verwandeln", "Abbrechen")  
                if w == 1 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(693, 1700)  
                elseif w == 2 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(1091, 1700)  
                elseif w == 3 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(1095, 1700)  
                elseif w == 4 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(2191, 1700)  
                elseif w == 5 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(2192, 1700)  
                elseif w == 6 then  
                    say("Du wurdest Zurückverwandelt!")  
                   pc.remove_polymorph()                                           
                elseif w == 7 then  
                    return  
                end      
            elseif s == 7 then  
                return  
            end  
        end  
    end   
end 
Also wenn ich jetzt auf 50002 klicke soll da :

Verwandeln und noch irgendein Button stehen und wenn ich auf Verwandeln klicke soll die verwandlungsquest starten ... beim anderen button könnt ihr freilassen damit ich selber quest einfüge und so.

Danke :)
08/26/2011 20:33 .Delta#3230
PHP Code:
quest Verwandlungs_Quest begin  
    state start begin  
        when 50002.use begin  
            say("Welche Quest möchtest du starten?")
            local q = select("Verwandlungsquest", "ANDERE QUEST", "Abbrechen")
            if q == 1 then
                say("In was möchtest du dich verwandeln?")  
                local s = select("Wildhund", "OberOrk", "Roter-Drache", "Wasser-Drache", "Sensenman", "Weiter", "Abbrechen")  
                if s == 1 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(101, 1700)  
                elseif s == 2 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(692, 1700)  
                elseif s == 3 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(2291, 1700)  
                elseif s == 4 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(2493, 1700)  
                elseif s == 5 then  
                    say("Du wurdest Verwandelt!")  
                    pc.polymorph(1093, 1700)  
                elseif s == 6 then      
                    say("In was m?chtest du dich verwandeln?")  
                    local w = select("Geister Orkfuehrer", "DaemonenKing", "Blauer Tod", "Große Wuesten Schildkroete", "Dunkler Wuesten Schildkroete", "Zurück verwandeln", "Abbrechen")  
                    if w == 1 then  
                        say("Du wurdest Verwandelt!")  
                        pc.polymorph(693, 1700)  
                    elseif w == 2 then  
                        say("Du wurdest Verwandelt!")  
                        pc.polymorph(1091, 1700)  
                    elseif w == 3 then  
                        say("Du wurdest Verwandelt!")  
                        pc.polymorph(1095, 1700)  
                    elseif w == 4 then  
                        say("Du wurdest Verwandelt!")  
                        pc.polymorph(2191, 1700)  
                    elseif w == 5 then  
                        say("Du wurdest Verwandelt!")  
                        pc.polymorph(2192, 1700)  
                    elseif w == 6 then  
                        say("Du wurdest Zurückverwandelt!")  
                       pc.remove_polymorph()                                           
                    elseif w == 7 then  
                        return  
                    end      
                elseif s == 7 then  
                    return  
                end  
            elseif q == 2 then
                *Code andere quest*
            end
        end  
    end   
end 
08/26/2011 20:37 .Keyto#3231
Danke dir ich probier es später aus ^^
08/27/2011 10:18 savebord#3232
Ich habe noch ein Problem.

Diese Meldung kommt immer wieder:
Code:
QUEST : zahn_des_fuersten
STATE : start
WHEN : 70045.use
assertion failure : nested ==0
zahn_des_fuersten.quest:66:Abort trap (core dumped)

Mit dieser Quest hier:

Ich würde mich sehr über Hilfe freuen.
Die aufgebesserte Quest könnt ihr dann entweder halt hier posten oder
mir eine Nachricht schicken.
Gebe natürlich THX' für jede Hilfreiche Antwort.
08/27/2011 10:46 .Delta#3233
PHP Code:
quest zahn_des_fuersten begin
    state start begin
        when 70045.use begin
            say_title("Hey "..pc.get_name()..".")
            say("Welches Reittier Willst du Benutzen")
            local s = select("Löwe","Keiler","Feuer Tieger","Wolf","Nächste Page")
            if s == 1 then
                say_reward("Du Hast Dein Löwen gerufen")
                horse.ride()
                pc.mount(20113,1800)
            elseif s == 2 then
                say_reward("Du Hast Dein Keiler gerufen")
                horse.ride()
                pc.mount(20110,1800)
            elseif s == 3 then
                say_reward("Du Hast Dein Feuer Tieger gerufen")
                horse.ride()
                pc.mount(20112,1800)
            elseif s == 4 then
                say_reward("Du Hast Dein Wolf gerufen")
                horse.ride()
                pc.mount(20111, 1800)

            elseif s == 5 then
                say_reward("Wähle dein Reittier:")
                local s2 = select("Dunkler Löwe", "Dunkler Tiger", "Dunkler Keiler", "Dunkler Wolf", "Weißer Löwe", "EXIT")
                if s2 == 1 then
                    say_reward("Du Hast Dein Dunklen Löwen gerufen")
                    horse.ride()
                    pc.mount(20123, 1800)
                elseif s2 == 2 then
                    say_reward("Du Hast Dein Dunklen Tiger gerufen")
                    horse.ride()
                    pc.mount(20122, 1800)
                elseif s2 == 3 then
                    say_reward("Du Hast Dein Dunklen Keiler gerufen")
                    horse.ride()
                    pc.mount(20120, 1800)

                elseif s2 == 4 then
                    say_reward("Du Hast Dein Dunklen Wolf gerufen")
                    horse.ride()
                    pc.mount(20121, 1800)

                elseif s2 == 5 then
                    say_reward("Du Hast Dein Weißen Löwen gerufen")
                    horse.ride()
                    pc.mount(20114, 1800)
                end
            end
        end
    end
end 
08/27/2011 10:56 savebord#3234
Ich danke dir vielmals .Delta klappt 100% :D
08/27/2011 12:16 coolmerto#3235
Hallo,

ich habe mit dem Questmaker eine quest erstellt, habe die quest Töte_Böse_Bäume.quest genannt, habe sie in der hongkonglist eingefügt, in filezilla auch, dann make.sh ausgeführt, aber die quest ist nicht ingame!

PHP Code:
----------------------------------------------
-- Töte Böse Bäume
-- Made with Steffs Questmaker
----------------------------------------------
quest Töte_Böse_Bäume begin
    state start begin
        when login with pc.level >= 60 begin
            set_state(information)
        end
    end

    state information begin
        when letter begin
            send_letter("Töte Böse Bäume")
        end
        when info or button begin
            say("Töte Böse Bäume")
            say("Hallo Mutiger,")
            say("du musst mir und der ganzen Gesselschaft helfen. Du musst Böse Bäume töten.")
            say("Geh und töte 100 Böse Bäume!")
            say_reward("Töte 100 Böse Bäume!")
            say("")
            pc.setqf("state", 100)
            q.set_counter("Böser Baum", 100)
            set_state(killen)
        end
    end
    state killen begin
        when letter begin
            send_letter("Töte Böse Bäume")
        end
        when button or info begin
            say("Töte Böse Bäume")
            say("")
            say("Du musst noch "..pc.getqf("state").." von 100 Bösen Bäumen töten")
        end
        when 2305.kill begin
            local count = pc.getqf("state") - 1
            if count <= 100 then
                pc.setqf("state", count)
                q.set_counter("Böser Baum", count)
            end
            if count == 0 then
                say_title("Töte Böse Bäume")
                say("Du hast die Quest erfolgreich abgeschlossen!")
                say("Du erhälst:")
                say_reward("Weise Perle")
                say_reward("Blaue Perle")
                say_reward("und")
                say_reward("Rote Perle")
                say_reward("Außerdem:")
                say_reward("100.000.000 Yang")
                say_reward("10.000.000 Erfahrung")
                pc.change_money(100000000)
                pc.give_exp2(10000000)
                pc.give_item2(29992, 2)
                pc.give_item2(27993, 2)
                pc.give_item2(27994, 2)
                clear_letter()
                set_state(__COMPLETE__)

            end
        end
    end
    state __COMPLETE__ begin
    end
end 
Bitte hilft mir

PS: Nachdem make.sh kommt segmantation (core dumped)

wieso?


MFG coolmerto
08/27/2011 12:33 savebord#3236
Hallo Leute, ich habe nun noch ein Quest Problem.
Und zwar habe ich ein gewisses "Zauberbuch" eingefügt mit
gewissen Funkltionen halt.
Aber hier kommt diesmal ein anderer VPC-Fehler.

Also erstmal wird dann die ganze Quest bei epvp aufgelistet.
(also das was sichtbar ist in dem kleinen Fenster)


So das ist der Inhalt von dem kleinen VPC Fenster nach der Eingabe von:

cd -usr-rain-channel-share?data-locale-hongkong-quest
chmod u+x make.sh
sh make.sh


Sop, und das hier ist die Quest dazu:

08/27/2011 13:31 Benhero#3237
@ coolmerto
PHP Code:
quest Töte_Böse_Bäume begin 
umbenennen Ä Ö Ü Sowie Zahlen am anfang sind bei Quest namen VERBOTEN! Und verursachen diesen Fehler...

@ saveboard
PHP Code:
-----------------------------
-- Copyright by [SA]Slycer --
--  @ CoolRain-Mt2-tk      --
-----------------------------
quest wizard_book begin
    state start begin
        when 91932.use begin
            say_title("Zauberbuch")
            say("Mit diesem item kannst du mit Hilfe einer Zauberrolle")
            say("ein paar Zaubersprüche ausführen.")
            say("!!! Pro Zauber verschwindet eine Schriftrolle !!!")
            say("")
            if pc.count_item(91936) >= 1 then
                local s1 = select("Reittier Siegel", "Rangpunkte / Gold / Exp", "Exit")
                if s1 == 1 then
                    say_title("Hey ".. pc.get_name() ..".")
                    say("")
                    say("")
                    say("Welches Siegel Willst du erschaffen?")
                    say("")
                    local a = select("Dunkler Löwe", "Dunkler Tiger", "Dunkler Keiler", "Dunkler Wolf", "Weißer Löwe", "Exit")
                    if a == 1 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71132, 1)
                    elseif a == 2 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71130, 1)
                    elseif a == 3 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71126, 1)
                    elseif a == 4 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71128, 1)
                    elseif a == 5 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71122, 1)
                    end
                end
                if s1 == 2 then
                    say_title("Hey ".. pc.get_name() ..".")
                    say("")
                    say("")
                    say("Was möchtest du haben?")
                    say("ACHTUNG:")
                    say("1. Bei dem Gold vorher nicht mehr als")
                    say("   999.999.999 Yang besitzen!!")
                    say("2. Bei den Exp, nicht höher als Level")
                    say("   120 sein")
                    say("")
                    local b = select("12000 Rangpunkte", "1Kkk Gold", "2.500.000.000 Exp", "Doch nicht")
                    if b == 1 then
                        pc.removeitem(91936, 1)
                        pc.change_alignment(12000)
                    elseif b == 2 then
                        pc.removeitem(91936, 1)
                        pc.changemoney(1000000000)
                    elseif b == 3 then
                        pc.removeitem(91936, 1)
                        pc.give_exp2(2500000000)
                    end
                end
            end
                elseif s1 == 3 then
                    return
                end
            end
        end
    end
end 
Viel Spaß.

Mfg. benhero
08/27/2011 14:19 savebord#3238
@banhero:
Funktioniert trotzdem nicht.
das wird nun bei VPC angezeigt:


Halt bei deiner Quest:

Was jetzt Falsch..
08/27/2011 14:21 .Delta#3239
PHP Code:
-----------------------------
-- Copyright by [SA]Slycer --
--  @ CoolRain-Mt2-tk      --
-----------------------------
quest wizard_book begin
    state start begin
        when 91932.use begin
            say_title("Zauberbuch")
            say("Mit diesem item kannst du mit Hilfe einer Zauberrolle")
            say("ein paar Zaubersprüche ausführen.")
            say("!!! Pro Zauber verschwindet eine Schriftrolle !!!")
            say("")
            if pc.count_item(91936) >= 1 then
                local s1 = select("Reittier Siegel", "Rangpunkte / Gold / Exp", "Exit")
                if s1 == 1 then
                    say_title("Hey ".. pc.get_name() ..".")
                    say("")
                    say("")
                    say("Welches Siegel Willst du erschaffen?")
                    say("")
                    local a = select("Dunkler Löwe", "Dunkler Tiger", "Dunkler Keiler", "Dunkler Wolf", "Weißer Löwe", "Exit")
                    if a == 1 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71132, 1)
                    elseif a == 2 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71130, 1)
                    elseif a == 3 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71126, 1)
                    elseif a == 4 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71128, 1)
                    elseif a == 5 then
                        pc.removeitem(91936, 1)
                        pc.give_item2(71122, 1)
                    end
                elseif s1 == 2 then
                    say_title("Hey ".. pc.get_name() ..".")
                    say("")
                    say("")
                    say("Was möchtest du haben?")
                    say("ACHTUNG:")
                    say("1. Bei dem Gold vorher nicht mehr als")
                    say("   999.999.999 Yang besitzen!!")
                    say("2. Bei den Exp, nicht höher als Level")
                    say("   120 sein")
                    say("")
                    local b = select("12000 Rangpunkte", "1Kkk Gold", "2.500.000.000 Exp", "Doch nicht")
                    if b == 1 then
                        pc.removeitem(91936, 1)
                        pc.change_alignment(12000)
                    elseif b == 2 then
                        pc.removeitem(91936, 1)
                        pc.changemoney(1000000000)
                    elseif b == 3 then
                        pc.removeitem(91936, 1)
                        pc.give_exp2(2500000000)
                    end
                elseif s1 == 3 then
                    return
                end
            end
        end
    end
end 
08/27/2011 14:22 Benhero#3240
Argh übersehen O.o
grrrr.. Delta :D Danke XD

Mfg. Benhero
Page 216 of 845 « First 116166206214215 216 217218226266316716 Last »