[SERVICE] Die Questkontrolle

06/03/2012 01:48 .BeFaMouZ™#5926
Problem..:

PHP Code:
quest all_reittiere_by_enemy begin
    state start begin
        when 40004.
use begin
            say_title
("Hey ".. pc.get_name() ..".")
            
say("Klick auf den jenigen, denn du reiten willst!")
            
local s = select("Wolf","Löwe","Tiger","Keiler","NEXT","Ich will keinen Reittier benützten!")
        if 
s == 1 then
            say_reward
("Du hast den Wolf genommen!")
            
pc.mount(20111,1800)
            
end
        
if s == 2 then
            say_reward
("Du hast den Löwe genommen!")
            
pc.mount(20113,1800)
            
end
        
if s == 3 then
            say_reward
("Du hast den Tiger genommen!")
            
pc.mount(20112,1800)
            
end
        
if s == 4 then
            say_reward
("Du hast den Keiler genommen!")
            
pc.mount(20110,1800)
            
end
        
if s == 5 then
            say_title
("Hey ".. pc.get_name() ..".")
            
say("Klick auf den jenigen, denn du reiten willst!")
            
local z = select("Weißer Löwe","Schwarzer Keiler","Schwarzer Löwe","Schwarzer Tiger"
        
if z == 1 then
            say_reward
("Du hast den Weißen Löwen genommen!")
            
pc.mount(20114,1800)
            
end
        
if z == 2 then
            say_reward
("Du hast den Schwarzen Keiler genommen!")
            
pc.mount(20115,1800)
            
end
        
if z == 3 then
            say_reward
("Du hast den Schwarzen Tiger genommen!")
            
pc.mount(20117,1800)
            
end
        
if z == 3 then
            say_reward
("Du hast den Schwarzen Löwen genommen!")
            
pc.mount(20117,1800)
        
end
    end
end 
06/03/2012 01:52 ©by Noa#5927
da in dem fehler steht aber das when kein begin - end hat, dh auf die end´s und when / begin achten
06/03/2012 17:35 Azemi6#5928
PHP Code:
quest drachnraum begin  
    state start begin          
        when 20080.chat
."Drachenraum" begin  --NPC zum Starten  
            say_title
(mob_name(20080)) --NPC zum Starten  
            say
("Hallo Abenteurer,")  
            
say("ich habe längst verlassene Gänge und")  
            
say("Schluchten entdeckt, wo Ungeheuer ihr")  
            
say("unwesen treiben. Nur die stärksten")  
            
say("Krieger halten denen Stand!")  
            if 
pc.count_item(30227) == 0 then  
                say
("Du benötigst einen Seelenstein der Anführer um passieren zu können.")  
                
say_item_vnum(30227)  
                return  
            
end  
            say
("Soll ich dich dahin bringen?")  
            
local s=select("Ja", "Nein")  
            if 
s==2 then  
                
return  
            
end  
            pc
.remove_item(30227, 1)  
            
pc.warp(171700, 1220400)  
        
end
      end     
    end  
end 
in V-Box steht:
drachenraum.quest:25:Abort trab (core dumped)
06/03/2012 17:38 depa95#5929
Quote:
Originally Posted by Azemi6 View Post
PHP Code:
quest drachnraum begin  
    state start begin          
        when 20080.chat
."Drachenraum" begin  --NPC zum Starten  
            say_title
(mob_name(20080)) --NPC zum Starten  
            say
("Hallo Abenteurer,")  
            
say("ich habe längst verlassene Gänge und")  
            
say("Schluchten entdeckt, wo Ungeheuer ihr")  
            
say("unwesen treiben. Nur die stärksten")  
            
say("Krieger halten denen Stand!")  
            if 
pc.count_item(30227) == 0 then  
                say
("Du benötigst einen Seelenstein der Anführer um passieren zu können.")  
                
say_item_vnum(30227)  
                return  
            
end  
            say
("Soll ich dich dahin bringen?")  
            
local s=select("Ja", "Nein")  
            if 
s==2 then  
                
return  
            
end  
            pc
.remove_item(30227, 1)  
            
pc.warp(171700, 1220400)  
        
end
      end     
    end  
end 
in V-Box steht:
drachenraum.quest:25:Abort trab (core dumped)
Probiers mal so wie sie im Anhang ist :D
06/03/2012 17:55 Azemi6#5930
Quote:
Originally Posted by depa95 View Post
Probiers mal so wie sie im Anhang ist :D
okey danke probiere ich gleich mal aus^^

hatt prima geklappt danke hast nen thx ;)
06/03/2012 18:19 depa95#5931
Immer wieder gerne, bin aber noch anfänger :D^^ Aber sowas ist immer wieder gut zum üben :D
06/03/2012 23:03 depa95#5932
Mh also ich habe ein problem mit der quest die im Anhang ist sie funktioniert zwar aber ich möchte due funktionen drinn haben die in der .txt datei im ahnhang sind... Aber ich bekomms net hin


Liebe Grüße
06/04/2012 01:14 |★|554#5933
Daniiel':

.BeFaMouZ™:
06/04/2012 17:38 Grand09#5934
Brauche mal hilfe...

PHP Code:
--------------------------------
-----
Copyright by [SA]Orange----
---------
By Zemonia2------------
--------------------------------
quest perle begin
state start begin
when 20091.chat
."Perlen tauschen" begin
say
("Hallo reisender,")
say("du kannst bei mir alle Perlen von dir umtauschen.")
local a = select("Weiße Perle tauschen", "Blaue Perle tauschen", "Rote Perle tauschen", "Gelbe Perle tauschen", "Violette Perle tauschen", "Grüne Perle tauschen", "Türkise Perle tauschen", "Zurück")
    if 
a == 1 then
        say
("Du kannst die Weiße Perle in folgenden Perlen umtauschen:")
        
local b = select("Blaue Perle", "Rote Perle")
            if 
b == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local c = select("Ja", "Nein")
                        if 
c == 1 then
                            say
("Hier ist deine Blaue Perle")
                            
pc.give_item(27993, 1)
                            
pc.remove_item(27992, 1)
                        elseif 
c == 2 then
            
elseif b == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local d = select("Ja", "Nein")
                        if 
d == 1 then
                            say
("Hier ist deine Rote Perle")
                            
pc.give_item(27994, 1)
                            
pc.remove_item(27992, 1)
                        elseif 
d == 2 then
    
elseif a == 2 then
        say
("Du kannst die Blaue Perle in folgenden Perlen umtauschen:")
        
local e = select("Weiße Perle", "Rote Perle")
            if 
e == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local f = select("Ja", "Nein")
                        if 
f == 1 then
                            say
("Hier ist deine Weiße Perle")
                            
pc.give_item(27992, 1)
                            
pc.remove_item(27993, 1)
                        elseif 
c == 2 then
            
elseif e == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local g = select("Ja", "Nein")
                        if 
g == 1 then
                            say
("Hier ist deine Rote Perle")
                            
pc.give_item(27994, 1)
                            
pc.remove_item(27993, 1)
                        elseif 
g == 2 then
    
elseif a == 3 then
        say
("Du kannst die Rote Perle in folgenden Perlen umtauschen:")
        
local h = select("Blaue Perle", "Weiße Perle")
            if 
h == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local i = select("Ja", "Nein")
                        if 
i == 1 then
                            say
("Hier ist deine Blaue Perle")
                            
pc.give_item(27993, 1)
                            
pc.remove_item(27994, 1)
                        elseif 
i == 2 then
            
elseif h == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local j = select("Ja", "Nein")
                        if 
j == 1 then
                            say
("Hier ist deine Weiße Perle")
                            
pc.give_item(27992, 1)
                            
pc.remove_item(27994, 1)
                        elseif 
j == 2 then
    
elseif a == 4 then
        say
("Du kannst die Gelbe Perle in folgenden Perlen umtauschen:")
        
local k = select("Grüne Perle", "Violette Perle", "Türkise Perle")
            if 
k == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local l = select("Ja", "Nein")
                        if 
l == 1 then
                            say
("Hier ist deine Grüne Perle")
                            
pc.give_item(77817, 1)
                            
pc.remove_item(77815, 1)
                        elseif 
l == 2 then
            
elseif k == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local m = select("Ja", "Nein")
                        if 
m == 1 then
                            say
("Hier ist deine Violette Perle")
                            
pc.give_item(77816, 1)
                            
pc.remove_item(77815, 1)
                        elseif 
m == 2 then
            
elseif k == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local n = select("Ja", "Nein")
                        if 
n == 1 then
                            say
("Hier ist deine Türkise Perle")
                            
pc.give_item(77814, 1)
                            
pc.remove_item(77815, 1)
                        elseif 
n == 2 then
    
elseif a == 5 then
        say
("Du kannst die Violette Perle in folgenden Perlen umtauschen:")
        
local o = select("Grüne Perle", "Türkise Perle", "Gelbe Perle")
            if 
o == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local p = select("Ja", "Nein")
                        if 
p == 1 then
                            say
("Hier ist deine Grüne Perle")
                            
pc.give_item(77817, 1)
                            
pc.remove_item(77816, 1)
                        elseif 
p == 2 then
            
elseif o == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local q = select("Ja", "Nein")
                        if 
q == 1 then
                            say
("Hier ist deine Türkise Perle")
                            
pc.give_item(77814, 1)
                            
pc.remove_item(77816, 1)
                        elseif 
q == 2 then
            
elseif o == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local r = select("Ja", "Nein")
                        if 
r == 1 then
                            say
("Hier ist deine Gelbe Perle")
                            
pc.give_item(77815, 1)
                            
pc.remove_item(77816, 1)
                        elseif 
r == 2 then
    
elseif a == 6 then
        say
("Du kannst die Grüne Perle in folgenden Perlen umtauschen:")
        
local s = select("Violette Perle", "Türkise Perle", "Gelbe Perle")
            if 
s == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local t = select("Ja", "Nein")
                        if 
t == 1 then
                            say
("Hier ist deine Violette Perle")
                            
pc.give_item(77816, 1)
                            
pc.remove_item(77817, 1)
                        elseif 
t == 2 then
            
elseif s == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local u = select("Ja", "Nein")
                        if 
u == 1 then
                            say
("Hier ist deine Türkise Perle")
                            
pc.give_item(77814, 1)
                            
pc.remove_item(77817, 1)
                        elseif 
u == 2 then
            
elseif s == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local v = select("Ja", "Nein")
                        if 
v == 1 then
                            say
("Hier ist deine Gelbe Perle")
                            
pc.give_item(77815, 1)
                            
pc.remove_item(77817, 1)
                        elseif 
v == 2 then
    
elseif a == 7 then
        say
("Du kannst die Türkise Perle in folgenden Perlen umtauschen:")
        
local w = select("Violette Perle", "Grüne Perle", "Gelbe Perle")
            if 
w == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local x = select("Ja", "Nein")
                        if 
x == 1 then
                            say
("Hier ist deine Violette Perle")
                            
pc.give_item(77816, 1)
                            
pc.remove_item(77814, 1)
                        elseif 
x == 2 then
            
elseif w == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local y = select("Ja", "Nein")
                        if 
y == 1 then
                            say
("Hier ist deine Grüne Perle")
                            
pc.give_item(77817, 1)
                            
pc.remove_item(77814, 1)
                        elseif 
y == 2 then
            
elseif w == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local z = select("Ja", "Nein")
                        if 
z == 1 then
                            say
("Hier ist deine Gelbe Perle")
                            
pc.give_item(77815, 1)
                            
pc.remove_item(77814, 1)
                        elseif 
z == 2 then
    
elseif a == 8 then
                end
            end
        end
    end
end 
Fehler:

PHP Code:
qc in malloc(): error: allocation failed
Abort trap 
(core dumped) 
06/04/2012 17:53 [SA]Sibba / Christian#5935
Lass mal deine ganzen elseif a == ,.... weg ... und schreib nur elseif hin .... das elseif a == 8 bringt sich 0 xDD das erste was mir auffällt

oder schreib gleich nur else hin.....
06/04/2012 18:51 Sp0ngeb0b ist cool#5936
@Grand09: Habs mal etwas kürzer gefasst & eingebaut, dass du am Anfang als Auswahl nur die Items drin stehen hast, die du auch besitzt. (bei dir fehlt diese Abfrage sowieso :D)
Questlib von Mijago wird dafür benötigt. Da es sowieso lohnenswert ist diese zu holen, sollte das kein Problem sein. Ansonsten den Befehl select2 in select_table or sou ändern ;)

habe mir erlaubt, dass CopyRight zu entfernen^^
PHP Code:
quest perlen begin
    state start begin
        when 20091.chat
."Perlen tauschen" begin
            local ac
,ab,af,items = {},{},{},{
                {
27992, 27993, 27994, 0},
                {
27993, 27992, 27994, 0},
                {
27994, 27992, 27993, 0},
                {
77814, 77815, 77816, 77817},
                {
77815, 77814, 77816, 77817},
                {
77816, 77814, 77815, 77817},
                {
77817, 77814, 77815, 77816},
            }
            for 
i = 1, table.getn(items) do
                if 
pc.count_item(items[i][1]) > 0 then
                    table
.insert(af,i,item_name(items[i][1])..' eintauschen')
                
end
            end
            say
("Hallo reisender,")
            
say("du kannst bei mir alle Perlen von dir umtauschen.")
            
local sel = select2(af)
            for 
i = 1, table.getn(items) do
                if 
items[sel][1] == items[i][1] then
                    
for b = 2, 4 do
                        if 
items[i][b] ~= 0 then
                            table
.insert(ab,b-1,item_name(items[i][b]))
                            
table.insert(ac,b-1,items[i][b])
                        
end
                    end
                end
            end
            table
.insert(ab,table.getn(ab)+1, 'Abbrechen')
            
say("Du kannst die "..item_name(items[sel][1]).." in folgenden Perlen umtauschen:")
            
local s = select2(ab)
            if 
s == table.getn(ab) then say('Bis bald !') end
            say
("Oke deine Entscheidung, möchtest du wirklich tauschen?")
            if 
select("Ja", "Nein") == 2 then say('Dann nicht!') return end
            say
("Hier ist deine "..ab[s])
            
pc.give_item2(ac[s], 1)
            
pc.remove_item(items[sel][1], 1)
        
end
    end
end 
Edit: So sieht die Tabelle schöner aus :)
06/04/2012 19:47 KliKli1998#5937
PHP Code:
quest Oberork Quest  begin
    state start begin
        when login 
or levelup with pc.get_level() >=10  begin
            set_state
(information)
        
end    
    end

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

        when button 
or info begin
            say_title
("Oberork Quest")
            
say("")
            
say("Biologe Chaegirab braucht")
            
say("deine Hilfe gehe zu ihm")
            
say("hin und rede mit im!!!")
            
say("Er wird dir sagen was")
            
say("du für ihm tuhen sollst")
            
say("mfG Der Botte")
            
say("")
        
end

        when __TARGET__
.target.click or
            
20084.chat."Quest" begin
            target
.delete("__TARGET__")
            
say("Biologe Chaegirab:")
            ---                                                   
l
            say
("Hallo junger Abenteurer,")
            
say("Wie mein Botte es dir")
            
say("gesagt hat brauche ich deine")
            
say("Hilfe Töte den Oberork und")
            
say("bringe mir 2 Buch der Vorsehung.")
            
say("Beil dich Bitte.")
            
say("")    
            
set_state(go_to_disciple)
            
pc.setqf("collect_count",0)
            
pc.setqf("drink_drug",0) 
        
end
    end

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

        
end
        when button 
or info begin
            say_title
("Quest")
            ---                                                   
l
            say
("")
            
say("Biologe Chaegirab gab euch den Auftrag")
            
say("2 Buch der Vorsehung zu sammeln!")
            
say("Das Item bekommt ihr von Oberork.")
            
say("Viel Glueck!")
            
say("")
            
say_item_vnum(70101)
            
say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
            
say("")
        
end

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

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


        when 691.kill begin
            
if pc.count_item(70101)<2-pc.getqf("collect_count") then
                pc
.give_item2(70101, 1)
            
end
        end

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

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

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

                    
pc.give_item2(27992)
                    
pc.give_item2(27993)
                    
pc.give_item2(27994)
                    
pc.change_money(150000000)
                    
pc.give_exp2(75000000)
                    
set_quest_state("levelup","run")


                    return
                else                                
                
say("Biologe Chaegirab:")
                
say("Dieses Item ist von schlechter Qualität!")
                
say("Es kann nicht verwendet werden.")
                
say("Hole mir ein neues!")
                
say("")
                
pc.setqf("drink_drug",0)     --ÃĤôªì©l¤Æ
                
return
                
end
    end
end


        
    state __complete begin
    end
end 
06/04/2012 21:49 DarkNessWorld2#5938
PHP Code:
quest gm_support_panel begin
    state start begin
        when login begin
            set_state
(information)
        
end
    end
    state information begin
        when letter with pc
.is_gm() begin 
            send_letter
("Support Panel") 
        
end
        when button 
or info begin
        local s 
= select("Support anmelden", "Support abmelden", "Support AFK", "Abbrechen")
        if 
s == 1 then
            command
("n ".. pc.get_name() .." ist nun Online.")
            
command("n ".. pc.get_name() .." meldet sicht am Support an")
            
command("n Ihr könnt ihn nun bei Fragen oder Problemen kontaktieren.")
        
end
        
if s == 2 then
            command
("n ".. pc.get_name() .." meldet sich vom Support ab")
            
command("n ".. pc.get_name() .." geht nun Offline")
            
command("n Er wünscht euch noch Viel Spaß auf DarkNessWorld2.")
        
end
        
if s == 3 then
            command
("n ".. pc.get_name() .." geht nun AFK.")
            
command("n ".. pc.get_name() .." meldet sicht am Support vorerst ab")
            
command("n Er Meldet sich wenn er wieder da ist.")
        if 
s == 4 then
            
return
        
end
    end
end 
zeile 32 error nur ich weis nciht was ich bei end falsch ist pls help
06/04/2012 22:01 depa95#5939
Quote:
Originally Posted by depa95 View Post
Mh also ich habe ein problem mit der quest die im Anhang ist sie funktioniert zwar aber ich möchte due funktionen drinn haben die in der .txt datei im ahnhang sind... Aber ich bekomms net hin


Liebe Grüße
Brauche immernoch Hilfe bitte.... Ich verzweifel...
06/04/2012 23:20 Ielinque#5940
PHP Code:
--------------------------------
-----
Copyright by [SA]Orange----
---------
By Zemonia2------------
--------------------------------
quest perle begin
state start begin
when 20091.chat
."Perlen tauschen" begin
say
("Hallo reisender,")
say("du kannst bei mir alle Perlen von dir umtauschen.")
local a = select("Weiße Perle tauschen", "Blaue Perle tauschen", "Rote Perle tauschen", "Gelbe Perle tauschen", "Violette Perle tauschen", "Grüne Perle tauschen", "Türkise Perle tauschen", "Zurück")
    if 
a == 1 then
        say
("Du kannst die Weiße Perle in folgenden Perlen umtauschen:")
        
local b = select("Blaue Perle", "Rote Perle")
            if 
b == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local c = select("Ja", "Nein")
                        if 
c == 1 then
                            say
("Hier ist deine Blaue Perle")
                            
pc.give_item(27993, 1)
                            
pc.remove_item(27992, 1)
                        elseif 
c == 2 then
            
elseif b == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local d = select("Ja", "Nein")
                        if 
d == 1 then
                            say
("Hier ist deine Rote Perle")
                            
pc.give_item(27994, 1)
                            
pc.remove_item(27992, 1)
                        elseif 
d == 2 then
    
elseif a == 2 then
        say
("Du kannst die Blaue Perle in folgenden Perlen umtauschen:")
        
local e = select("Weiße Perle", "Rote Perle")
            if 
e == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local f = select("Ja", "Nein")
                        if 
f == 1 then
                            say
("Hier ist deine Weiße Perle")
                            
pc.give_item(27992, 1)
                            
pc.remove_item(27993, 1)
                        elseif 
c == 2 then
            
elseif e == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local g = select("Ja", "Nein")
                        if 
g == 1 then
                            say
("Hier ist deine Rote Perle")
                            
pc.give_item(27994, 1)
                            
pc.remove_item(27993, 1)
                        elseif 
g == 2 then
    
elseif a == 3 then
        say
("Du kannst die Rote Perle in folgenden Perlen umtauschen:")
        
local h = select("Blaue Perle", "Weiße Perle")
            if 
h == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local i = select("Ja", "Nein")
                        if 
i == 1 then
                            say
("Hier ist deine Blaue Perle")
                            
pc.give_item(27993, 1)
                            
pc.remove_item(27994, 1)
                        elseif 
i == 2 then
            
elseif h == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local j = select("Ja", "Nein")
                        if 
j == 1 then
                            say
("Hier ist deine Weiße Perle")
                            
pc.give_item(27992, 1)
                            
pc.remove_item(27994, 1)
                        elseif 
j == 2 then
    
elseif a == 4 then
        say
("Du kannst die Gelbe Perle in folgenden Perlen umtauschen:")
        
local k = select("Grüne Perle", "Violette Perle", "Türkise Perle")
            if 
k == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local l = select("Ja", "Nein")
                        if 
l == 1 then
                            say
("Hier ist deine Grüne Perle")
                            
pc.give_item(77817, 1)
                            
pc.remove_item(77815, 1)
                        elseif 
l == 2 then
            
elseif k == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local m = select("Ja", "Nein")
                        if 
m == 1 then
                            say
("Hier ist deine Violette Perle")
                            
pc.give_item(77816, 1)
                            
pc.remove_item(77815, 1)
                        elseif 
m == 2 then
            
elseif k == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local n = select("Ja", "Nein")
                        if 
n == 1 then
                            say
("Hier ist deine Türkise Perle")
                            
pc.give_item(77814, 1)
                            
pc.remove_item(77815, 1)
                        elseif 
n == 2 then
    
elseif a == 5 then
        say
("Du kannst die Violette Perle in folgenden Perlen umtauschen:")
        
local o = select("Grüne Perle", "Türkise Perle", "Gelbe Perle")
            if 
o == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local p = select("Ja", "Nein")
                        if 
p == 1 then
                            say
("Hier ist deine Grüne Perle")
                            
pc.give_item(77817, 1)
                            
pc.remove_item(77816, 1)
                        elseif 
p == 2 then
            
elseif o == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local q = select("Ja", "Nein")
                        if 
q == 1 then
                            say
("Hier ist deine Türkise Perle")
                            
pc.give_item(77814, 1)
                            
pc.remove_item(77816, 1)
                        elseif 
q == 2 then
            
elseif o == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local r = select("Ja", "Nein")
                        if 
r == 1 then
                            say
("Hier ist deine Gelbe Perle")
                            
pc.give_item(77815, 1)
                            
pc.remove_item(77816, 1)
                        elseif 
r == 2 then
    
elseif a == 6 then
        say
("Du kannst die Grüne Perle in folgenden Perlen umtauschen:")
        
local s = select("Violette Perle", "Türkise Perle", "Gelbe Perle")
            if 
s == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local t = select("Ja", "Nein")
                        if 
t == 1 then
                            say
("Hier ist deine Violette Perle")
                            
pc.give_item(77816, 1)
                            
pc.remove_item(77817, 1)
                        elseif 
t == 2 then
            
elseif s == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local u = select("Ja", "Nein")
                        if 
u == 1 then
                            say
("Hier ist deine Türkise Perle")
                            
pc.give_item(77814, 1)
                            
pc.remove_item(77817, 1)
                        elseif 
u == 2 then
            
elseif s == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local v = select("Ja", "Nein")
                        if 
v == 1 then
                            say
("Hier ist deine Gelbe Perle")
                            
pc.give_item(77815, 1)
                            
pc.remove_item(77817, 1)
                        elseif 
v == 2 then
    
elseif a == 7 then
        say
("Du kannst die Türkise Perle in folgenden Perlen umtauschen:")
        
local w = select("Violette Perle", "Grüne Perle", "Gelbe Perle")
            if 
w == 1 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local x = select("Ja", "Nein")
                        if 
x == 1 then
                            say
("Hier ist deine Violette Perle")
                            
pc.give_item(77816, 1)
                            
pc.remove_item(77814, 1)
                        elseif 
x == 2 then
            
elseif w == 2 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local y = select("Ja", "Nein")
                        if 
y == 1 then
                            say
("Hier ist deine Grüne Perle")
                            
pc.give_item(77817, 1)
                            
pc.remove_item(77814, 1)
                        elseif 
y == 2 then
            
elseif w == 3 then
                say
("Oke deine entscheidung, möchtest du wirklich tauschen?")
                    
local z = select("Ja", "Nein")
                        if 
z == 1 then
                            say
("Hier ist deine Gelbe Perle")
                            
pc.give_item(77815, 1)
                            
pc.remove_item(77814, 1)
                        elseif 
z == 2 then
                
elseif a == 8 then
                end
            end
        end 
Sollte so funktionieren =D