[SERVICE] Die Questkontrolle

Page 835 of 845

835

04/12/2017 15:23 zuppy�#12511

Code:

state kill_teh_viecher begin
		when letter begin
			send_letter("Auftrag von Biologe Chaegirab")
		end
		
		when button or info begin
			say_title("Notiz der Anf�hrer:")
			say("Biologe Chaegirab gab euch den Auftrag")
			say("10 Notizen der Anf�hrer zu sammeln!")
			say("Das Item bekommst du von den Bossen.")
			say("Viel Gl�ck!")
			say("")
			say_item_vnum(30168) 
			say_reward("Du hast bis jetzt "..pc.getqf("actual_collect_count").." St�ck gesammelt!") 
			say("")
		end
	
		
		when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1094.kill or 1095.kill or 1304.kill or
             1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5004.kill or
             5161.kill or 5162.kill or 5163.kill or 2597.kill begin  
			
			 local dropChance = number(10,100)
            if dropChance == 1 and pc.count_item(30168) < 20-pc.getqf("actual_collect_count") then
                pc.give_item2(30168, 1)
            end  //beendet if-Statement
			end //beendet when 
		end //beendet State kill_teh_viecher

Sprich du hast an der Stelle ein end zuviel.

Code:

	state __COMPLETE__ begin
	
end

Das letzte end beendet die Quest, aber du beendest nie den State-Block, dass ist der andere Punkt den er meinte.

04/20/2017 14:47 Mytho2#12512

Spoiler

PHP Code:


			
quest Trump begin
    state start begin
        when login with pc.getqf("start") == 0 begin
            pc.setqf("Guthaben", 0)
            pc.setqf("start", 1)
            set_state(affe)
        end
    end
    state affe begin
        when 20041.chat."Items Umtauschen" begin
            say_title("Items Umtauschen")
            say("Hier kannst du deine Uppitems")
            say("gegen Punkte eintauschen, welche")
            say("du gegen Itemshop-Coins tauschen kannst.")
            say("")
            say("Was m�chtest du tun?")
            local a = select("Guthaben abfragen","Items eintauschen","Punkte eintauschen","Nichts")
            if a == 1 then
                say_title("Guthaben")
                say("Dein Guthaben betr�gt "..pc.getqf("Guthaben").." Punkte.")
            end
            if a == 2 then 
                say_title("Items eintauschen")
                say("")
                say("Welche Art von Item m�chtest du eintauschen?")
                say("")
                local i = select("Beran-Setaou","Azrael","Metinstein")
                if i == 1 then
                    say_title("Beran-Setaou")
                    say("")
                    say("Welches Item m�chtest du eintauschen?")
                    say("")
                    local o = select("Drachenschuppe","Drachenkralle","Traktat zur Fechtkunst")
                    if o = 1 then
                        say_title("Drachenschuppe")
                        say("")
                        say("Eine Drachenschuppe ist 4 Punkte wert.")
                        say("Wie viele Drachenschuppen m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(71123) >= 1 then
                                pc.remove_item(71123,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+4)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(71123) >= 5 then
                                pc.remove_item(71123,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+20)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(71123) >= 10 then
                                pc.remove_item(71123,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+40)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(71123) >= 50 then
                                pc.remove_item(71123,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+200)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end
                    end    
                    if o = 2 then
                        say_title("Drachenkralle")
                        say("")
                        say("Eine Drachenkralle ist 4 Punkte wert.")
                        say("Wie viele Drachenkrallen m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(71129) >= 1 then
                                pc.remove_item(71129,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+4)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(71129) >= 5 then
                                pc.remove_item(71129,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+20)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(71129) >= 10 then
                                pc.remove_item(71129,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+40)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(71129) >= 50 then
                                pc.remove_item(71129,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+200)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end    
                    end    
                    if o = 3 then
                        say_title("Traktat zur Fechtkunst")
                        say("")
                        say("Ein Traktat zur Fechtkunst ist 2 Punkte wert.")
                        say("Wie viele Traktate zur Fechtkunst m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(70031) >= 1 then
                                pc.remove_item(70031,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+2)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(70031) >= 5 then
                                pc.remove_item(70031,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+10)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(70031) >= 10 then
                                pc.remove_item(70031,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+20)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(70031) >= 50 then
                                pc.remove_item(70031,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+100)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end        
                    end        
                end    
                if i == 2 then
                    say_title("Azrael")
                    say("")
                    say("Welches Item m�chtest du eintauschen?")
                    say("")
                    local o = select("Gegenstand Verhexen","gegenstand Verzaubern","Azraels Herz")
                    if o = 1 then
                        say_title("Gegenstand Verhexen")
                        say("")
                        say("Ein Gegenstand Verhexen ist 1 Punkt wert.")
                        say("Wie viele Gegenstand Verhexen m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(71052) >= 1 then
                                pc.remove_item(71052,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+1)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(71052) >= 5 then
                                pc.remove_item(71052,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+5)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(71052) >= 10 then
                                pc.remove_item(71052,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+10)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(71052) >= 50 then
                                pc.remove_item(71052,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+50)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end
                    end    
                    if o = 2 then
                        say_title("Gegenstand Segnen")
                        say("")
                        say("Ein Gegenstand Segnen ist 1 Punkt wert.")
                        say("Wie viele Gegenstand Segnen m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(71051) >= 1 then
                                pc.remove_item(71051,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+1)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(71051) >= 5 then
                                pc.remove_item(71051,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+5)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(71051) >= 10 then
                                pc.remove_item(71051,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+10)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(71051) >= 50 then
                                pc.remove_item(71051,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+50)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end    
                    end    
                    if o = 3 then
                        say_title("Azraels Herz")
                        say("")
                        say("Ein Azraels Herz ist 4 Punkte wert.")
                        say("Wie viele Azraels Herzen m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(70022) >= 1 then
                                pc.remove_item(70022,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+4)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(70022) >= 5 then
                                pc.remove_item(70022,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+20)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(70022) >= 10 then
                                pc.remove_item(70022,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+40)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(70022) >= 50 then
                                pc.remove_item(70022,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+200)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end        
                    end            
                end
                if i == 3 then
                    say_title("Metinsteine")
                    say("")
                    say("Welches Item m�chtest du eintauschen?")
                    say("")
                    local o = select("Blaudrachenstahl","Rotdrachenstahl","Wasserstein","Tr�nen Baljit-Elvedins")
                    if o = 1 then
                        say_title("Blaudrachenstahl")
                        say("")
                        say("Ein Blaudrachenstahl ist 1 Punkt wert.")
                        say("Wie viel Blaudrachenstahl m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(30509) >= 1 then
                                pc.remove_item(30509,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+1)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(30509) >= 5 then
                                pc.remove_item(30509,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+5)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(30509) >= 10 then
                                pc.remove_item(30509,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+10)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(30509) >= 50 then
                                pc.remove_item(30509,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+50)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end
                    end    
                    if o = 2 then
                        say_title("Rotdrachenstahl")
                        say("")
                        say("Ein Rotdrachenstahl ist 2 Punkt wert.")
                        say("Wie viel Rotdrachenstahl m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(30512) >= 1 then
                                pc.remove_item(30512,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+2)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(30512) >= 5 then
                                pc.remove_item(30512,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+10)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(30512) >= 10 then
                                pc.remove_item(30512,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+20)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(30512) >= 50 then
                                pc.remove_item(30512,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+100)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end    
                    end    
                    if o = 3 then
                        say_title("Wasserstein")
                        say("")
                        say("Ein Wasserstein ist 3 Punkte wert.")
                        say("Wie viele Wassersteine m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(90005) >= 1 then
                                pc.remove_item(90005,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+3)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(90005) >= 5 then
                                pc.remove_item(90005,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+15)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(90005) >= 10 then
                                pc.remove_item(90005,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+30)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(90005) >= 50 then
                                pc.remove_item(90005,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+150)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end        
                    end            
                    if o = 4 then
                        say_title("Tr�nen Baljit-Elvedins")
                        say("")
                        say("Eine Tr�nen Baljit-Elvedins ist 1 Punkt wert.")
                        say("Wie viele Tr�nen Baljit-Elvedins m�chtest du eintauschen?")
                        say("")
                        local p = select("1","5","10","50")
                        if p == 1 then
                            if pc.count_item(30189) >= 1 then
                                pc.remove_item(30189,1)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+1)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 2 then
                            if pc.count_item(30189) >= 5 then
                                pc.remove_item(30189,5)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+5)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end
                        if p == 3 then
                            if pc.count_item(30189) >= 10 then
                                pc.remove_item(30189,10)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+10)
                            else
                                say("Du hast nicht genug Items.")
                                return
                            end
                        end    
                        if p == 4 then
                            if pc.count_item(30189) >= 50 then
                                pc.remove_item(30189,50)
                                pc.setqf("Guthaben", pc.getqf("Guthaben")+50)
                            else
                                say("Du hast nicht genug Items.")
                                return    
                            end
                        end        
                    end        
                end    
            end    
            if a == 3 then
                say_title("Punkte eintauschen")
                say("")
                say("Hier kannst du deine Punkte gegen")
                say("Coins tauschen. F�r 10 Punkte")
                say("bekommst du 100 Coins.")
                say("")
                say("Wie viele Punkte m�chtest du eintauschen?")
                say("")
                local y = select("10","50","100","500")
                if y == 1 then
                    if pc.getqf("Guthaben") >= 10 then
                        pc.setqf("Guthaben"), pc.getqf("Guthaben")-10)
                        pc.give_item2(80014, 1)
                    else
                        say("Du hast nicht genug Punkte")
                        return
                    end    
                if y == 2 then
                    if pc.getqf("Guthaben") >= 50 then
                        pc.setqf("Guthaben"), pc.getqf("Guthaben")-50)
                        pc.give_item2(80015, 1)
                    else
                        say("Du hast nicht genug Punkte")
                        return
                    end        
                if y == 3 then
                    if pc.getqf("Guthaben") >= 100 then
                        pc.setqf("Guthaben"), pc.getqf("Guthaben")-100)
                        pc.give_item2(80016, 1)
                    else
                        say("Du hast nicht genug Punkte")
                        return
                    end    
                if y == 4 then
                    if pc.getqf("Guthaben") >= 500 then
                        pc.setqf("Guthaben"), pc.getqf("Guthaben")-500)
                        pc.give_item2(80016, 1)
                        pc.give_item2(80016, 1)
                        pc.give_item2(80016, 1)
                        pc.give_item2(80016, 1)
                        pc.give_item2(80016, 1)
                    else
                        say("Du hast nicht genug Punkte")
                        return
                    end            
                end        
            end    
            if a == 4 then
                return
            end
        end
    end
end

Fehlermeldung:
Error occured on compile Runs/Trump.quest

04/23/2017 17:50 .Risan.#12513

Quote:

Originally Posted by Mytho2

Spoiler

PHP Code:

quest Trump begin state start begin when login with pc.getqf("start") == 0 begin pc.setqf("Guthaben", 0) pc.setqf("start", 1) set_state(affe) end end state affe begin when 20041.chat."Items Umtauschen" begin say_title("Items Umtauschen") say("Hier kannst du deine Uppitems") say("gegen Punkte eintauschen, welche") say("du gegen Itemshop-Coins tauschen kannst.") say("") say("Was m�chtest du tun?") local a = select("Guthaben abfragen","Items eintauschen","Punkte eintauschen","Nichts") if a == 1 then say_title("Guthaben") say("Dein Guthaben betr�gt "..pc.getqf("Guthaben").." Punkte.") end if a == 2 then say_title("Items eintauschen") say("") say("Welche Art von Item m�chtest du eintauschen?") say("") local i = select("Beran-Setaou","Azrael","Metinstein") if i == 1 then say_title("Beran-Setaou") say("") say("Welches Item m�chtest du eintauschen?") say("") local o = select("Drachenschuppe","Drachenkralle","Traktat zur Fechtkunst") if o = 1 then say_title("Drachenschuppe") say("") say("Eine Drachenschuppe ist 4 Punkte wert.") say("Wie viele Drachenschuppen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71123) >= 1 then pc.remove_item(71123,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+4) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71123) >= 5 then pc.remove_item(71123,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71123) >= 10 then pc.remove_item(71123,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+40) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71123) >= 50 then pc.remove_item(71123,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+200) else say("Du hast nicht genug Items.") return end end end if o = 2 then say_title("Drachenkralle") say("") say("Eine Drachenkralle ist 4 Punkte wert.") say("Wie viele Drachenkrallen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71129) >= 1 then pc.remove_item(71129,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+4) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71129) >= 5 then pc.remove_item(71129,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71129) >= 10 then pc.remove_item(71129,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+40) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71129) >= 50 then pc.remove_item(71129,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+200) else say("Du hast nicht genug Items.") return end end end if o = 3 then say_title("Traktat zur Fechtkunst") say("") say("Ein Traktat zur Fechtkunst ist 2 Punkte wert.") say("Wie viele Traktate zur Fechtkunst m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(70031) >= 1 then pc.remove_item(70031,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+2) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(70031) >= 5 then pc.remove_item(70031,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(70031) >= 10 then pc.remove_item(70031,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(70031) >= 50 then pc.remove_item(70031,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+100) else say("Du hast nicht genug Items.") return end end end end if i == 2 then say_title("Azrael") say("") say("Welches Item m�chtest du eintauschen?") say("") local o = select("Gegenstand Verhexen","gegenstand Verzaubern","Azraels Herz") if o = 1 then say_title("Gegenstand Verhexen") say("") say("Ein Gegenstand Verhexen ist 1 Punkt wert.") say("Wie viele Gegenstand Verhexen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71052) >= 1 then pc.remove_item(71052,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71052) >= 5 then pc.remove_item(71052,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71052) >= 10 then pc.remove_item(71052,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71052) >= 50 then pc.remove_item(71052,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end if o = 2 then say_title("Gegenstand Segnen") say("") say("Ein Gegenstand Segnen ist 1 Punkt wert.") say("Wie viele Gegenstand Segnen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71051) >= 1 then pc.remove_item(71051,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71051) >= 5 then pc.remove_item(71051,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71051) >= 10 then pc.remove_item(71051,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71051) >= 50 then pc.remove_item(71051,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end if o = 3 then say_title("Azraels Herz") say("") say("Ein Azraels Herz ist 4 Punkte wert.") say("Wie viele Azraels Herzen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(70022) >= 1 then pc.remove_item(70022,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+4) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(70022) >= 5 then pc.remove_item(70022,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(70022) >= 10 then pc.remove_item(70022,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+40) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(70022) >= 50 then pc.remove_item(70022,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+200) else say("Du hast nicht genug Items.") return end end end end if i == 3 then say_title("Metinsteine") say("") say("Welches Item m�chtest du eintauschen?") say("") local o = select("Blaudrachenstahl","Rotdrachenstahl","Wasserstein","Tr�nen Baljit-Elvedins") if o = 1 then say_title("Blaudrachenstahl") say("") say("Ein Blaudrachenstahl ist 1 Punkt wert.") say("Wie viel Blaudrachenstahl m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(30509) >= 1 then pc.remove_item(30509,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(30509) >= 5 then pc.remove_item(30509,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(30509) >= 10 then pc.remove_item(30509,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(30509) >= 50 then pc.remove_item(30509,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end if o = 2 then say_title("Rotdrachenstahl") say("") say("Ein Rotdrachenstahl ist 2 Punkt wert.") say("Wie viel Rotdrachenstahl m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(30512) >= 1 then pc.remove_item(30512,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+2) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(30512) >= 5 then pc.remove_item(30512,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(30512) >= 10 then pc.remove_item(30512,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(30512) >= 50 then pc.remove_item(30512,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+100) else say("Du hast nicht genug Items.") return end end end if o = 3 then say_title("Wasserstein") say("") say("Ein Wasserstein ist 3 Punkte wert.") say("Wie viele Wassersteine m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(90005) >= 1 then pc.remove_item(90005,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+3) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(90005) >= 5 then pc.remove_item(90005,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+15) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(90005) >= 10 then pc.remove_item(90005,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+30) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(90005) >= 50 then pc.remove_item(90005,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+150) else say("Du hast nicht genug Items.") return end end end if o = 4 then say_title("Tr�nen Baljit-Elvedins") say("") say("Eine Tr�nen Baljit-Elvedins ist 1 Punkt wert.") say("Wie viele Tr�nen Baljit-Elvedins m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(30189) >= 1 then pc.remove_item(30189,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(30189) >= 5 then pc.remove_item(30189,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(30189) >= 10 then pc.remove_item(30189,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(30189) >= 50 then pc.remove_item(30189,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end end end if a == 3 then say_title("Punkte eintauschen") say("") say("Hier kannst du deine Punkte gegen") say("Coins tauschen. F�r 10 Punkte") say("bekommst du 100 Coins.") say("") say("Wie viele Punkte m�chtest du eintauschen?") say("") local y = select("10","50","100","500") if y == 1 then if pc.getqf("Guthaben") >= 10 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-10) pc.give_item2(80014, 1) else say("Du hast nicht genug Punkte") return end if y == 2 then if pc.getqf("Guthaben") >= 50 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-50) pc.give_item2(80015, 1) else say("Du hast nicht genug Punkte") return end if y == 3 then if pc.getqf("Guthaben") >= 100 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-100) pc.give_item2(80016, 1) else say("Du hast nicht genug Punkte") return end if y == 4 then if pc.getqf("Guthaben") >= 500 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-500) pc.give_item2(80016, 1) pc.give_item2(80016, 1) pc.give_item2(80016, 1) pc.give_item2(80016, 1) pc.give_item2(80016, 1) else say("Du hast nicht genug Punkte") return end end end if a == 4 then return end end end end

Fehlermeldung:
Error occured on compile Runs/Trump.quest

Sorry, muss zugeben hast dir m�he gegeben aber das so extrem lang... vefasse dich mal mit tables.. sieht schicker aus und macht den code theoretisch gleich 85% kleiner...

mfg Risan

04/23/2017 20:45 rollback#12514

Quote:

Originally Posted by Mytho2

Spoiler

PHP Code:

quest Trump begin state start begin when login with pc.getqf("start") == 0 begin pc.setqf("Guthaben", 0) pc.setqf("start", 1) set_state(affe) end end state affe begin when 20041.chat."Items Umtauschen" begin say_title("Items Umtauschen") say("Hier kannst du deine Uppitems") say("gegen Punkte eintauschen, welche") say("du gegen Itemshop-Coins tauschen kannst.") say("") say("Was m�chtest du tun?") local a = select("Guthaben abfragen","Items eintauschen","Punkte eintauschen","Nichts") if a == 1 then say_title("Guthaben") say("Dein Guthaben betr�gt "..pc.getqf("Guthaben").." Punkte.") end if a == 2 then say_title("Items eintauschen") say("") say("Welche Art von Item m�chtest du eintauschen?") say("") local i = select("Beran-Setaou","Azrael","Metinstein") if i == 1 then say_title("Beran-Setaou") say("") say("Welches Item m�chtest du eintauschen?") say("") local o = select("Drachenschuppe","Drachenkralle","Traktat zur Fechtkunst") if o = 1 then say_title("Drachenschuppe") say("") say("Eine Drachenschuppe ist 4 Punkte wert.") say("Wie viele Drachenschuppen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71123) >= 1 then pc.remove_item(71123,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+4) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71123) >= 5 then pc.remove_item(71123,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71123) >= 10 then pc.remove_item(71123,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+40) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71123) >= 50 then pc.remove_item(71123,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+200) else say("Du hast nicht genug Items.") return end end end if o = 2 then say_title("Drachenkralle") say("") say("Eine Drachenkralle ist 4 Punkte wert.") say("Wie viele Drachenkrallen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71129) >= 1 then pc.remove_item(71129,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+4) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71129) >= 5 then pc.remove_item(71129,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71129) >= 10 then pc.remove_item(71129,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+40) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71129) >= 50 then pc.remove_item(71129,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+200) else say("Du hast nicht genug Items.") return end end end if o = 3 then say_title("Traktat zur Fechtkunst") say("") say("Ein Traktat zur Fechtkunst ist 2 Punkte wert.") say("Wie viele Traktate zur Fechtkunst m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(70031) >= 1 then pc.remove_item(70031,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+2) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(70031) >= 5 then pc.remove_item(70031,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(70031) >= 10 then pc.remove_item(70031,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(70031) >= 50 then pc.remove_item(70031,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+100) else say("Du hast nicht genug Items.") return end end end end if i == 2 then say_title("Azrael") say("") say("Welches Item m�chtest du eintauschen?") say("") local o = select("Gegenstand Verhexen","gegenstand Verzaubern","Azraels Herz") if o = 1 then say_title("Gegenstand Verhexen") say("") say("Ein Gegenstand Verhexen ist 1 Punkt wert.") say("Wie viele Gegenstand Verhexen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71052) >= 1 then pc.remove_item(71052,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71052) >= 5 then pc.remove_item(71052,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71052) >= 10 then pc.remove_item(71052,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71052) >= 50 then pc.remove_item(71052,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end if o = 2 then say_title("Gegenstand Segnen") say("") say("Ein Gegenstand Segnen ist 1 Punkt wert.") say("Wie viele Gegenstand Segnen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(71051) >= 1 then pc.remove_item(71051,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(71051) >= 5 then pc.remove_item(71051,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(71051) >= 10 then pc.remove_item(71051,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(71051) >= 50 then pc.remove_item(71051,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end if o = 3 then say_title("Azraels Herz") say("") say("Ein Azraels Herz ist 4 Punkte wert.") say("Wie viele Azraels Herzen m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(70022) >= 1 then pc.remove_item(70022,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+4) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(70022) >= 5 then pc.remove_item(70022,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(70022) >= 10 then pc.remove_item(70022,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+40) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(70022) >= 50 then pc.remove_item(70022,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+200) else say("Du hast nicht genug Items.") return end end end end if i == 3 then say_title("Metinsteine") say("") say("Welches Item m�chtest du eintauschen?") say("") local o = select("Blaudrachenstahl","Rotdrachenstahl","Wasserstein","Tr�nen Baljit-Elvedins") if o = 1 then say_title("Blaudrachenstahl") say("") say("Ein Blaudrachenstahl ist 1 Punkt wert.") say("Wie viel Blaudrachenstahl m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(30509) >= 1 then pc.remove_item(30509,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(30509) >= 5 then pc.remove_item(30509,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(30509) >= 10 then pc.remove_item(30509,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(30509) >= 50 then pc.remove_item(30509,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end if o = 2 then say_title("Rotdrachenstahl") say("") say("Ein Rotdrachenstahl ist 2 Punkt wert.") say("Wie viel Rotdrachenstahl m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(30512) >= 1 then pc.remove_item(30512,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+2) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(30512) >= 5 then pc.remove_item(30512,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(30512) >= 10 then pc.remove_item(30512,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+20) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(30512) >= 50 then pc.remove_item(30512,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+100) else say("Du hast nicht genug Items.") return end end end if o = 3 then say_title("Wasserstein") say("") say("Ein Wasserstein ist 3 Punkte wert.") say("Wie viele Wassersteine m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(90005) >= 1 then pc.remove_item(90005,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+3) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(90005) >= 5 then pc.remove_item(90005,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+15) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(90005) >= 10 then pc.remove_item(90005,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+30) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(90005) >= 50 then pc.remove_item(90005,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+150) else say("Du hast nicht genug Items.") return end end end if o = 4 then say_title("Tr�nen Baljit-Elvedins") say("") say("Eine Tr�nen Baljit-Elvedins ist 1 Punkt wert.") say("Wie viele Tr�nen Baljit-Elvedins m�chtest du eintauschen?") say("") local p = select("1","5","10","50") if p == 1 then if pc.count_item(30189) >= 1 then pc.remove_item(30189,1) pc.setqf("Guthaben", pc.getqf("Guthaben")+1) else say("Du hast nicht genug Items.") return end end if p == 2 then if pc.count_item(30189) >= 5 then pc.remove_item(30189,5) pc.setqf("Guthaben", pc.getqf("Guthaben")+5) else say("Du hast nicht genug Items.") return end end if p == 3 then if pc.count_item(30189) >= 10 then pc.remove_item(30189,10) pc.setqf("Guthaben", pc.getqf("Guthaben")+10) else say("Du hast nicht genug Items.") return end end if p == 4 then if pc.count_item(30189) >= 50 then pc.remove_item(30189,50) pc.setqf("Guthaben", pc.getqf("Guthaben")+50) else say("Du hast nicht genug Items.") return end end end end end if a == 3 then say_title("Punkte eintauschen") say("") say("Hier kannst du deine Punkte gegen") say("Coins tauschen. F�r 10 Punkte") say("bekommst du 100 Coins.") say("") say("Wie viele Punkte m�chtest du eintauschen?") say("") local y = select("10","50","100","500") if y == 1 then if pc.getqf("Guthaben") >= 10 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-10) pc.give_item2(80014, 1) else say("Du hast nicht genug Punkte") return end if y == 2 then if pc.getqf("Guthaben") >= 50 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-50) pc.give_item2(80015, 1) else say("Du hast nicht genug Punkte") return end if y == 3 then if pc.getqf("Guthaben") >= 100 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-100) pc.give_item2(80016, 1) else say("Du hast nicht genug Punkte") return end if y == 4 then if pc.getqf("Guthaben") >= 500 then pc.setqf("Guthaben"), pc.getqf("Guthaben")-500) pc.give_item2(80016, 1) pc.give_item2(80016, 1) pc.give_item2(80016, 1) pc.give_item2(80016, 1) pc.give_item2(80016, 1) else say("Du hast nicht genug Punkte") return end end end if a == 4 then return end end end end

Fehlermeldung:
Error occured on compile Runs/Trump.quest

Ich stimme Risan zu. Du solltest immer vermeiden Code doppelt zu schreiben. Das birgt Raum f�r Fehler und dadurch unerw�nschtes Verhalten der Quest und ist nat�rlich auch deutlich schwerer anzupassen.
Da du die Quest selbst geschrieben hast gehe ich davon aus, dass du mein Beispiel relativ eigenst�ndig erweitern kannst, falls nicht melde dich einfach hier im Thread.

Die erste state ist nicht n�tig, eine Questflag, die noch nicht explizit gesetzt wurde, gibt beim Anfordern des Wertes 0 zur�ck. Diesen Wert also Anfangs mithilfe einer anderen State auf 0 zu setzen ist nicht n�tig.

Das Eintauschen von Punkten zu Coins habe ich noch nicht umgesetzt, daran kannst du dich ja mal versuchen ;)

Code:

quest item_exchange begin
	state start begin
		function getSettings()
			if not item_exchange.settings then
				item_exchange.settings = {
					ITEM_EXCHANGE = {
						{
							name = "Beran-Setaou",
							items = {
								{vnum = 71123, value = 4},
								{vnum = 71129, value = 4},
								{vnum = 70031, value = 2},
							}
						},
						{
							name = "Azrael",
							items = {
								{vnum = 71123, value = 4},
								{vnum = 71129, value = 4},
								{vnum = 70031, value = 2},
							}
						},
						{
							name = "Metinstein",
							items = {
								{vnum = 71123, value = 4},
								{vnum = 71129, value = 4},
								{vnum = 70031, value = 2},
							}
						},
					},
				}
			end
			
			return item_exchange.settings
		end
		
		when 20041.chat."Items Umtauschen" begin
			say_title("Items Umtauschen")
			say("Hier kannst du deine Uppitems")
			say("gegen Punkte eintauschen, welche")
			say("du gegen Itemshop-Coins tauschen kannst.")
			say("")
			say("Was m�chtest du tun?")
			local target = ({item_exchange.showShowCreditMenu, item_exchange.showExchangeItemMenu, item_exchange.showExchangeCreditMenu})[select("Guthaben abfragen", "Items eintauschen", "Punkte eintauschen", "Nichts")]
			if not target then return end
			
			local settings = item_exchange.getSettings()
			target(settings)
		end
		
		function showExchangeItemMenu(settings)
			item_exchange.showExchangeItemCategories({name = "Hauptmen�", categories = settings.ITEM_EXCHANGE})
		end
		
		function showExchangeItemCategories(category)
			say_title("Items eintauschen")
			say("W�hle eine Kategorie")
			
			local categoryNames = {}
			for _, subCategory in ipairs(category.categories) do
				table.insert(categoryNames, subCategory.name)
			end
			table.insert(categoryNames, "Abbrechen")
			
			local selectedCategory = category.categories[select_table(categoryNames)]
			if not selectedCategory then return end
			
			if selectedCategory.items then
				item_exchange.showExchangeItemCategoryItems(selectedCategory)
			elseif selectedCategory.categories then
				item_exchange.showExchangeItemCategories(selectedCategory)
			else
				say("Diese Kategorie enth�lt weder Items noch Unterkategorien.")
			end
		end
		
		function showExchangeItemCategoryItems(category)
			say_title("Items eintauschen")
			say(string.format("W�hle ein Item aus der Kategorie %s", category.name))
			
			local itemNames = {}
			for _, item in ipairs(category.items) do
				table.insert(itemNames, item_name(item.vnum))
			end
			table.insert(itemNames, "Abbrechen")
			
			local selectedItem = category.items[select_table(itemNames)]
			if not selectedItem then return end
			
			local itemName = item_name(selectedItem.vnum)
			say_title(itemName)
			say("")
			say(string.format("Ein %s ist %d Punkte wert.", itemName, selectedItem.value))
			say(string.format("Wie viele %s m�chtest du eintauschen?", itemName))
			say("Die Eingabe muss zwischen 1 und 200 liegen.")
			local exchangeCount = tonumber(input())
			if not exchangeCount or exchangeCount < 1 or exchangeCount > 200 then
				say("Ung�ltige Eingabe")
			else
				local realExchangeCount = math.min(exchangeCount, pc.count_item(selectedItem.vnum))
				if realExchangeCount >= 1 then
					pc.remove_item(selectedItem.vnum, realExchangeCount)
					item_exchange.addToCredit(selectedItem.value * realExchangeCount)
				else
					say("Du besitzt das ben�tigte Item nicht.")
				end
			end
		end
		
		function showExchangeCreditMenu(settings)
			say_title("Guthaben eintauschen")
			say("Noch nicht umgesetzt")
		end
		
		function showShowCreditMenu(settings)
			say_title("Guthaben") 
			say(string.format("Dein Guthaben betr�gt %d Punkte.", item_exchange.getCredit()))
		end
		
		function getCredit()
			return pc.getqf("credit")
		end
		
		function addToCredit(value)
			pc.setqf("credit", item_exchange.getCredit() + value)
		end
		
		function removeFromCredit(value)
			pc.setqf("credit", item_exchange.getCredit() - value)
		end
	end
end

05/01/2017 10:16 x"Kazuki#12515

K�nnte mir bitte einmal �ber die Quest schauen?

Bekomme dort einen compile Fehler in der 6. Zeile:

PHP Code:


			
quest warpring begin 

    state start begin 

        when letter begin 

            cmdchat("OpenTP "..q.getcurrentquestindex()) 

        end 

            say_title("Warpring")  

            say("Wohin m�chtest du Teleportiert werden?") 

        local empire = pc.get_empire()  

                    local selectmap = select("Map1","W�ste","Abbrechen") 

                    if selectmap == 3 then 

                return 

                    elseif selectmap == 2 then 

                        say_title("Warpring")  

                        say("Wohin m�chtest du Teleportiert werden?") 

                    local wuestenselect = select("Anfang","Abbrechen") 

                    if wuestenselect == 2 then 

                        return 

                    elseif wuestenselect == 1 then 

            pc.warp(290500,5700) 

            end 

                    elseif selectmap == 1 then 

                        say_title("Warpring")  

                        say("Wohin m�chtest du Teleportiert werden?") 

                    local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen") 

                    if map1select == 4 then 

                        return 

                    elseif map1select == 1 then 

            pc.warp(474300, 954800) 

                    elseif map1select == 2 then 

            pc.warp(63800, 166400) 

                    elseif map1select == 3 then 

            pc.warp(959900, 269200) 

            end 

        end 

    end 

end

05/02/2017 14:45 .Risan.#12516

Du musst eine When Bedingung setzen...

PHP Code:


			
quest warpring begin  
state start begin  
    when letter begin  
        cmdchat("OpenTP "..q.getcurrentquestindex())  
    end  
    --[[
    Hier muss eine Bedingung stehen. (When UseIem oder chat vom npc)
    beispiel: 
    ]]
    when 9010.chat."Warpring" begin
        say_title("Warpring")   
        say("Wohin m�chtest du Teleportiert werden?")  
        local empire = pc.get_empire()   
        local selectmap = select("Map1","W�ste","Abbrechen")  
        if selectmap == 3 then  
            return  
        elseif selectmap == 2 then  
            say_title("Warpring")   
            say("Wohin m�chtest du Teleportiert werden?")  
            local wuestenselect = select("Anfang","Abbrechen")  
            if wuestenselect == 2 then  
            return  
        elseif wuestenselect == 1 then  
            pc.warp(290500,5700)  
        end  
        elseif selectmap == 1 then  
            say_title("Warpring")   
            say("Wohin m�chtest du Teleportiert werden?")  
            local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")  
            if map1select == 4 then  
            return  
            elseif map1select == 1 then  
            pc.warp(474300, 954800)  
            elseif map1select == 2 then  
            pc.warp(63800, 166400)  
            elseif map1select == 3 then  
            pc.warp(959900, 269200)  
            end  
        end  
    end
end  
end

05/02/2017 15:45 x"Kazuki#12517

Quote:

Originally Posted by .Risan.

Du musst eine When Bedingung setzen...

PHP Code:

quest warpring begin state start begin when letter begin cmdchat("OpenTP "..q.getcurrentquestindex()) end --[[ Hier muss eine Bedingung stehen. (When UseIem oder chat vom npc) beispiel: ]] when 9010.chat."Warpring" begin say_title("Warpring") say("Wohin m�chtest du Teleportiert werden?") local empire = pc.get_empire() local selectmap = select("Map1","W�ste","Abbrechen") if selectmap == 3 then return elseif selectmap == 2 then say_title("Warpring") say("Wohin m�chtest du Teleportiert werden?") local wuestenselect = select("Anfang","Abbrechen") if wuestenselect == 2 then return elseif wuestenselect == 1 then pc.warp(290500,5700) end elseif selectmap == 1 then say_title("Warpring") say("Wohin m�chtest du Teleportiert werden?") local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen") if map1select == 4 then return elseif map1select == 1 then pc.warp(474300, 954800) elseif map1select == 2 then pc.warp(63800, 166400) elseif map1select == 3 then pc.warp(959900, 269200) end end end end end

Daf�r steht doch oben
"when letter begin" . Die Quest soll ja per Button ge�ffnet werden?

05/02/2017 17:47 .Risan.#12518

Probiere das mal:

PHP Code:


			
quest warpring begin   
state start begin   
    when letter or button begin   
        cmdchat("OpenTP "..q.getcurrentquestindex())   
        say_title("Warpring")    
        say("Wohin m�chtest du Teleportiert werden?")    
        local selectmap = select("Map1","W�ste","Abbrechen")      
        if selectmap == 2 then   
            say_title("Warpring")    
            say("Wohin m�chtest du Teleportiert werden?")   
            if select("Anfang","Abbrechen")  == 1 then       
                pc.warp(290500,5700)
            end  
        elseif selectmap == 1 then   
            say_title("Warpring")    
            say("Wohin m�chtest du Teleportiert werden?")   
            local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")  
            local warps = {    {474300, 95480},{63800, 166400 } , {959900, 269200}    }
            if map1select == 4 then   
                return   
            else
                pc.warp( warps[map1select][1],warps[map1select][2] )
            end --map1select end
        end    --selectmap end
    end --when end
end   
end

habs nicht getestet, nur rein theoretisch

05/04/2017 10:25 x"Kazuki#12519

Hab es anders gel�st, aber deine Variante funktioniert auch!

Danke.

05/15/2017 21:12 hacker-2012#12520

[SPOILER]

PHP Code:


			
quest sihastru_shining begin 

    state start begin 

        when login begin 

            set_state("__INFORMATIONS__") 

        end 

    end 

    state __INFORMATIONS__ begin 

        when 20354.chat."Ξεχώρισε μέσα στο πλήθος" begin 

            say_title("Φρουρά Πόλης[ENTER]") 

            say("Καλησπέρα,θα ήθελες να ξεχωρίσεις μέσα στο πλήθος;") 

            say("Μπορώ να το κάνω αυτό αλλα μόνο με μερικά αντικείμενα") 

            say("τα οποία δεν έχω.![ENTER]") 

            say_reward("Πές μου πως θα ήθελες να είναι η στολή σου.:") 

            say_size(350, 330) 

            local sihastre_list = select("Κόκκινο εφέ","Μπλέ εφέ","Κίτρινο εφέ","Πορτοκαλί εφέ","Ακύρωση") 

            if sihastre_list == 5 then 

                return 

            end 

            if sihastre_list == 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η στολή που θα ήθελες είναι για άνδρες ή") 

                say("για γυναίκες; Επιπλέον θα σου αφαιρέσουμε αυτό το αντικείμενο[ENTER]") 

                local sex_costume = select(" Άνδρες ","Γυναίκες ","Ακύρωση") 

                if sex_costume == 1 and pc.count_item(41521) >= 1 then 

                    pc.remove_item(41521, 1) 

                    pc.setqf("sihastru_masculin", 1) 

                    pc.setqf("soul_of_awheh", 1) 

                    set_state("shining_red") 

                elseif sex_costume == 1 and pc.count_item(41521) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume ==  2 and pc.count_item(41522) >= 1 then 

                    pc.remove_item(41522, 1) 

                    pc.setqf("sihastru_feminin", 1) 

                    pc.setqf("soul_of_awheh", 1) 

                    set_state("shining_red") 

                elseif sex_costume ==  2 and pc.count_item(41522) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume == 3 then 

                    return 

                end 

            end 

            if sihastre_list == 2 then 

                say("Η στολή που θα ήθελες είναι για άνδρες ή") 

                say("για γυναίκες; Επιπλέον θα σου αφαιρέσουμε αυτό το αντικείμενο[ENTER]") 

                local sex_costume = select(" Άνδρα "," Γυναίκα ","Ακύρωση") 

                if sex_costume == 1 and pc.count_item(41525) >= 1 then 

                    pc.remove_item(41525, 1) 

                    pc.setqf("sihastru_masculin", 1) 

                    pc.setqf("soul_of_beran", 1) 

                    set_state("shining_blue") 

                elseif sex_costume == 1 and pc.count_item(41525) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume ==  2 and pc.count_item(41526) >= 1 then 

                    pc.remove_item(41526, 1) 

                    pc.setqf("sihastru_feminin", 1) 

                    pc.setqf("soul_of_beran", 1) 

                    set_state("shining_blue") 

                elseif sex_costume ==  2 and pc.count_item(41526) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume == 3 then 

                    return 

                end 

            end 

            if sihastre_list == 3 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η στολή που θα ήθελες είναι για άνδρες ή") 

                say("για γυναίκες; Επιπλέον θα σου αφαιρέσουμε αυτό το αντικείμενο[ENTER]") 

                local sex_costume = select(" άνδρα ","Γυναίκα","Ακύρωση") 

                if sex_costume == 1 and pc.count_item(41529) >= 1 then 

                    pc.remove_item(41529, 1) 

                    pc.setqf("sihastru_masculin", 1) 

                    pc.setqf("soul_of_eoten", 1) 

                    set_state("shining_green") 

                elseif sex_costume == 1 and pc.count_item(41529) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume ==  2 and pc.count_item(41530) >= 1 then 

                    pc.remove_item(41530, 1) 

                    pc.setqf("sihastru_feminin", 1) 

                    pc.setqf("soul_of_eoten", 1) 

                    set_state("shining_green") 

                elseif sex_costume ==  2 and pc.count_item(41530) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume == 3 then 

                    return 

                end 

            end 

            if sihastre_list == 4 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η στολή που θα ήθελες είναι για άνδρες ή") 

                say("για γυναίκες; Επιπλέον θα σου αφαιρέσουμε αυτό το αντικείμενο[ENTER]") 

                local sex_costume = select("άνδρα ","Γυναίκα ","Ακύρωση") 

                if sex_costume == 1 and pc.count_item(41533) >= 1 then 

                    pc.remove_item(41533, 1) 

                    pc.setqf("sihastru_masculin", 1) 

                    pc.setqf("soul_of_wubba", 1) 

                    set_state("shining_orange") 

                elseif sex_costume == 1 and pc.count_item(41533) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume ==  2 and pc.count_item(41534) >= 1 then 

                    pc.remove_item(41534, 1) 

                    pc.setqf("sihastru_feminin", 1) 

                    pc.setqf("soul_of_wubba", 1) 

                    set_state("shining_orange") 

                elseif sex_costume ==  2 and pc.count_item(41534) < 1 then 

                    say_title("Φρουρά Πόλης[ENTER]") 

                    say("Η επιστροφή της πανοπλίας θα γίνει απο εμένα..![ENTER]") 

                end 

                if sex_costume == 3 then 

                    return 

                end 

            end 

        end 

    end 

    state shining_red begin 

        when letter begin 

            send_letter("Η ψυχή του Aw-heh") 

        end 

        when button or info begin 

            say_title("Η ψυχή του Aw-heh[ENTER]") 

            say("Για να μπορέσει η στολή σου να γίνει μοναδική") 

            say("χρειάζεται να βρείς την ψυχή του aw-heh.") 

            say("Με τη δύναμη του και την ψυχή του θα μπορέσουμε") 

            say("να δημιουργήσουμε κάτι μοναδικό![ENTER]") 

            say_reward("Αποστολή: Σκότωσε τον aw-heh για να πάρεις την ψυχή του.![ENTER]") 

        end 

        when 6091.kill with pc.getqf("soul_of_awheh") == 1 begin 

            pc.give_item2(91055, 1) 

            pc.delqf("soul_of_awheh") 

            set_state("shining_red_successfull") 

        end 

    end 

    state shining_blue begin 

        when letter begin 

            send_letter("H ψυχή του Beran Setaou") 

        end 

        when button or info begin 

            say("Για να μπορέσει η στολή σου να γίνει μοναδική") 

            say("χρειάζεται να βρείς την ψυχή του beran setaou.") 

            say("Με τη δύναμη του και την ψυχή του θα μπορέσουμε") 

            say("να δημιουργήσουμε κάτι μοναδικό![ENTER]") 

            say_reward("Αποστολή: Σκότωσε τον beran setaou για να πάρεις την ψυχή του.![ENTER]") 

        end 

        when 2493.kill with pc.getqf("soul_of_beran") == 1 begin 

            pc.give_item2(91056, 1) 

            pc.delqf("soul_of_beran") 

            set_state("shining_blue_successfull") 

        end 

    end 

    state shining_green begin 

        when letter begin 

            send_letter("Η ψυχή του δάσους.") 

        end 

        when button or info begin 

            say("Για να μπορέσει η στολή σου να γίνει μοναδική") 

            say("χρειάζεται να βρείς την ψυχή του τέρατος που περιπανιέται.") 

            say("στα Δάση.") 

            say("Με τη δύναμη του και την ψυχή του θα μπορέσουμε") 

            say("να δημιουργήσουμε κάτι μοναδικό![ENTER]") 

            say_reward("Αποστολή: Σκότωσε τον Γίγας για να πάρεις την ψυχή του.![ENTER]") 

        end 

        when 3902.kill with pc.getqf("soul_of_eoten") == 1 begin 

            pc.give_item2(91057, 1) 

            pc.delqf("soul_of_eoten") 

            set_state("shining_green_successfull") 

        end 

    end 

    state shining_orange begin 

        when letter begin 

            send_letter("Sufletul lui Wubba") 

        end 

        when button or info begin 

            say("Για να μπορέσει η στολή σου να γίνει μοναδική") 

            say("χρειάζεται να βρείς την ψυχή του  βασιλιά Γουομπα.") 

            say("Με τη δύναμη του και την ψυχή του θα μπορέσουμε") 

            say("να δημιουργήσουμε κάτι μοναδικό![ENTER]") 

            say_reward("Αποστολή: Σκότωσε τον βασιλιά Γουομπα για να πάρεις την ψυχή του.![ENTER]") 

        end 

        when 3791.kill with pc.getqf("soul_of_wubba") == 1 begin 

            pc.give_item2(91058, 1) 

            pc.delqf("soul_of_wubba") 

            set_state("shining_orange_successfull") 

        end 

    end 

    state shining_red_successfull begin 

        when letter begin 

            local v = find_npc_by_vnum(20354) 

            if v != 0 then 

                target.vid("gardian", v, "Gardian") 

            end 

            send_letter("Επισκέψου τη Φρουρά Πόλης") 

        end 

        when button or info begin 

            say_title("Επισκέψου τη Φρουρά Πόλης[ENTER]") 

            say("Έλα σε μένα ... Τελικά φαίνετε οτι αξίζεις τη") 

            say("στολή αυτή.") 

            say("Πάντα πίστευα σε εσένα![ENTER]") 

        end 

        when gardian.target.click or 20354.chat."Δολοφονία του Aw-Heh" begin 

            target.delete("gardian") 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91055) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή του Aw-Heh![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91055) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41523) 

                pc.give_item2(41523, 1) 

                pc.remove_item(91055, 1) 

                pc.delqf("sihastru_masculin") 

                set_state("__INFORMATIONS__") 

                return 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91055) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή του Aw-Heh![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91055) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41524) 

                pc.give_item2(41524, 1) 

                pc.remove_item(91055, 1) 

                pc.delqf("sihastru_feminin") 

                set_state("__INFORMATIONS__") 

                return 

            end 

        end 

    end 

    state shining_blue_successfull begin 

        when letter begin 

            local v = find_npc_by_vnum(20354) 

            if v != 0 then 

                target.vid("gardian", v, "Gardian") 

            end 

            send_letter("Επισκέψου τη Φρουρά Πόλης") 

        end 

        when button or info begin 

            say_title("Επισκέψου τη Φρουρά Πόλης[ENTER]") 

            say("Έλα σε μένα ... Τελικά φαίνετε οτι αξίζεις τη") 

            say("στολή αυτή.") 

            say("Πάντα πίστευα σε εσένα![ENTER]") 

        end 

        when gardian.target.click or 20354.chat."Η ψυχή του Beran Setaou" begin 

            target.delete("gardian") 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91056) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή του Beran Setaou![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91056) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41527) 

                pc.give_item2(41527, 1) 

                pc.remove_item(91056, 1) 

                pc.delqf("sihastru_masculin") 

                set_state("__INFORMATIONS__") 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91056) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή τουBeran Setaou![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91056) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41528) 

                pc.give_item2(41528, 1) 

                pc.remove_item(91056, 1) 

                pc.delqf("sihastru_feminin") 

                set_state("__INFORMATIONS__") 

            end 

        end 

    end 

    state shining_green_successfull begin 

        when letter begin 

            local v = find_npc_by_vnum(20354) 

            if v != 0 then 

                target.vid("gardian", v, "Gardian") 

            end 

            send_letter("Επισκέψου τη Φρουρά Πόλης") 

        end 

        when button or info begin 

            say_title("Επισκέψου τη Φρουρά Πόλης[ENTER]") 

            say("Έλα σε μένα ... Τελικά φαίνετε οτι αξίζεις τη") 

            say("στολή αυτή.") 

            say("Πάντα πίστευα σε εσένα![ENTER]") 

        end 

        when gardian.target.click or 20354.chat."Ψυχή του Eoten" begin 

            target.delete("gardian") 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91057) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή του Eoten![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91057) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41531) 

                pc.give_item2(41531, 1) 

                pc.remove_item(91057, 1) 

                pc.delqf("sihastru_masculin") 

                set_state("__INFORMATIONS__") 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91057) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή τουEoten![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91057) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41532) 

                pc.give_item2(41532, 1) 

                pc.remove_item(91057, 1) 

                pc.delqf("sihastru_feminin") 

                set_state("__INFORMATIONS__") 

            end 

        end 

    end 

    state shining_orange_successfull begin 

        when letter begin 

            local v = find_npc_by_vnum(20354) 

            if v != 0 then 

                target.vid("gardian", v, "Gardian") 

            end 

            send_letter("Επισκέψου τη Φρουρά Πόλης") 

        end 

        when button or info begin 

            say_title("Επισκέψου τη Φρουρά Πόλης[ENTER]") 

            say("Έλα σε μένα ... Τελικά φαίνετε οτι αξίζεις τη") 

            say("στολή αυτή.") 

            say("Πάντα πίστευα σε εσένα![ENTER]") 

        end 

        when gardian.target.click or 20354.chat."Η ψυχή του βασιλιά" begin 

            target.delete("gardian") 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91058) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή τουWubba![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_masculin") == 1 and pc.count_item(91058) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41535) 

                pc.give_item2(41535, 1) 

                pc.remove_item(91058, 1) 

                pc.delqf("sihastru_masculin") 

                set_state("__INFORMATIONS__") 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91058) < 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Έχεις πλέον την ψυχή τουWubba![ENTER]") 

                return 

            end 

            if pc.getqf("sihastru_feminin") == 1 and pc.count_item(91058) >= 1 then 

                say_title("Φρουρά Πόλης[ENTER]") 

                say("Η δημιουργία της στολής ήταν επιτυχής.!") 

                say("Θα λάβεις:") 

                say_item_vnum(41536) 

                pc.give_item2(41536, 1) 

                pc.remove_item(91058, 1) 

                pc.delqf("sihastru_feminin") 

                set_state("__INFORMATIONS__") 

            end 

        end 

    end 

end[

/SPOILER]

05/16/2017 17:12 Valerius1992#12521

Ich w�rde gern ein Item haben, was ein Spiziellen Boni aus dem Item holt und das dann auf ein anderes setzen kann.

Angenommen Waffe :
INT : 10
ZS: 10
Krit: 15
DB:10
Tiere: 10 <---- das will ich �ndern, mit einem Item und das eintauschen gg HM

Ich such schon seit std nach so einer Quest / DB change or what ever :D

Hat wer ne idee?

05/17/2017 20:43 Benhero#12522

Quote:

Originally Posted by Valerius1992

Ich w�rde gern ein Item haben, was ein Spiziellen Boni aus dem Item holt und das dann auf ein anderes setzen kann.

Angenommen Waffe :
INT : 10
ZS: 10
Krit: 15
DB:10
Tiere: 10 <---- das will ich �ndern, mit einem Item und das eintauschen gg HM

Ich such schon seit std nach so einer Quest / DB change or what ever :D

Hat wer ne idee?

Das ist eine Aufgabe f�r die Source bzw ben�tigst du entweder Source oder eine passende DIF datei. Wobei dir daf�r keiner einer DIF erstellen wird, da dies viel zu auffwendig w�re.

Es ist weder per Quest noch durch ver�nderungen der Client datein m�glich..

Gr��e Ben

05/19/2017 00:37 Valerius1992#12523

Ich hab ein Neues Problem:

Wie schaff ich es, das hier die 24 Stunden raus genommen werden, das ich das pferd nach meiner Abgabe der PM bekomme?

Code:

quest pony_buy begin
	state start begin
		when 20349.chat.gameforge.pony_buy._10_npcChat with horse.get_grade()==0 begin
			if pc.level<=24 then
				say_title(gameforge.horse_exchange_ticket._20_sayTitle)
				say(gameforge.pony_buy._20_say)
			elseif pc.countitem("50050")<1 then
				say_title(gameforge.horse_levelup._240_sayTitle)
				say(gameforge.pony_buy._30_say)
				setstate(need_item50050)
			elseif pc.countitem("50050")>=1 and pc.level>=25 then
				say_title(gameforge.horse_levelup._240_sayTitle)
				say(gameforge.pony_buy._40_say)
				local b= select(gameforge.find_brother_article._90_select, gameforge.find_brother_article._100_select)
				if 1==b then
					if pc.countitem("50050")>=1 then
						pc.removeitem("50050", 1)
						setstate(test)
					end
				elseif 2==b then
					say_title(gameforge.horse_exchange_ticket._20_sayTitle)
					say(gameforge.pony_buy._50_say)
				else
					say(string.format(gameforge.find_squareguard._70_say, b))
				end
			else
				say_title(gameforge.horse_exchange_ticket._20_sayTitle)
				say(gameforge.pony_buy._60_say)
			end
		end
	end
	state need_item50050 begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.horse_upgrade2._100_makequestbutton)
			q.set_title(gameforge.horse_upgrade2._100_makequestbutton)
			q.start()
		end
		when button begin
			say_title(gameforge.buy_fishrod._210_sayTitle)
						say_reward(gameforge.pony_buy._70_sayReward)
			setstate(start)
			q.done()
		end
		when info begin
			say_title(gameforge.buy_fishrod._210_sayTitle)
						say_reward(gameforge.pony_buy._70_sayReward)
			setstate(start)
			q.done()
		end
	end
	state test begin
		when letter begin
			q.set_counter(gameforge.pony_buy._test_503_count, 20-pc.getqf("kill_count"))
		end
		when 503.kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter(gameforge.pony_buy._test_503_count, 20-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				setstate(failure)
			end
		end
		when letter begin
			q.set_clock(gameforge.horse_upgrade2.rest_time, 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(gameforge.pony_buy._80_makequestbutton)
			q.set_title(gameforge.pony_buy._80_makequestbutton)
			q.start()
		end
		when button begin
			say_title(gameforge.pony_buy._80_makequestbutton)
						say_reward(gameforge.pony_buy._90_sayReward)
					end
		when info begin
			say_title(gameforge.pony_buy._80_makequestbutton)
			say(gameforge.pony_buy._100_say)
		end
		when 503.kill with pc.getqf("kill_count") >= 20 and pc.getqf("limit_time")>=get_time() begin
			setstate(report)
		end
		when 20349.chat.gameforge.pony_buy._110_npcChat with horse.get_grade()!=0 begin
			setstate(start)
			q.done()
		end
		when 20349.chat.gameforge.pony_buy._120_npcChat begin
			say_title(gameforge.horse_exchange_ticket._20_sayTitle)
						say_reward(gameforge.pony_buy._130_sayReward)
						local b= select(gameforge.locale.levelup.prev_quest_go, gameforge.pony_buy._140_select)
			if 1==b then
			elseif 2==b then
				say_title(gameforge.horse_exchange_ticket._20_sayTitle)
				say(gameforge.pony_buy._150_say)
				local b= select(gameforge.locale.guild.yes, gameforge.pony_buy._160_select)
				if 1==b then
					say_title(gameforge.horse_exchange_ticket._20_sayTitle)
					say(gameforge.pony_buy._170_say)
					setstate(start)
					q.done()
				elseif 2==b then
					say_title(gameforge.pony_buy._180_sayTitle)
					say(gameforge.pony_buy._190_say)
				else
					say(string.format(gameforge.find_squareguard._70_say, b))
				end
			else
				say(string.format(gameforge.find_squareguard._70_say, b))
			end
		end
	end
	state report begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.horse_upgrade2._230_makequestbutton)
			q.set_title(gameforge.horse_upgrade2._230_makequestbutton)
			q.start()
		end
		when button begin
			say_title(gameforge.horse_upgrade2._230_makequestbutton)
						say_reward(gameforge.horse_upgrade2._240_sayReward)
					end
		when info begin
			say_title(gameforge.horse_upgrade2._230_makequestbutton)
						say_reward(gameforge.horse_upgrade2._240_sayReward)
					end
		when 20349.chat.gameforge.horse_upgrade2._250_npcChat with horse.get_grade()!=0 begin
			setstate(start)
			q.done()
		end
		when 20349.chat.gameforge.horse_upgrade2._260_npcChat with horse.get_grade()==0 begin
			say_title(gameforge.horse_exchange_ticket._20_sayTitle)
			say(gameforge.pony_buy._200_say)
			if is_test_server() then
				pc.setqf("make_time", get_time()+10)
			else
				pc.setqf("make_time", get_time()+number(8, 16)*60*60)
			end
			setstate(wait)
		end
	end
	state wait begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.pony_buy._210_makequestbutton)
			q.set_title(gameforge.pony_buy._210_makequestbutton)
			q.start()
		end
		when button begin
			say_title(gameforge.pony_buy._210_makequestbutton)
			say(gameforge.pony_buy._220_sayReward)
		end
		when info begin
			say_title(gameforge.pony_buy._210_makequestbutton)
			say(gameforge.pony_buy._220_sayReward)
		end
		when login with get_time()>=pc.getqf("make_time") begin
			setstate(buy)
		end
		when 20349.chat.gameforge.horse_upgrade2._250_npcChat with horse.get_grade()!=0 begin
			setstate(start)
			q.done()
		end
		when 20349.chat.gameforge.pony_buy._230_npcChat with horse.get_grade()==0 begin
			say_title(gameforge.horse_exchange_ticket._20_sayTitle)
			say(gameforge.pony_buy._240_say)
		end
	end
	state buy begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.pony_buy._250_makequestbutton)
			q.set_title(gameforge.pony_buy._250_makequestbutton)
			q.start()
		end
		when button begin
			say_title(gameforge.pony_buy._250_makequestbutton)
			say(gameforge.pony_buy._260_sayReward)
		end
		when info begin
			say_title(gameforge.pony_buy._250_makequestbutton)
			say(gameforge.pony_buy._260_sayReward)
		end
		when 20349.chat.gameforge.pony_buy._270_npcChat with horse.get_grade()==0 and get_time()>=pc.getqf("make_time") begin
			say_title(gameforge.pony_buy._280_sayTitle)
			say(gameforge.pony_buy._290_say)
			local b= select(gameforge.buy_fishrod._40_select, gameforge.pony_buy._300_select, gameforge.pony_buy._140_select)
			if 1==b then
				if pc.money>=100000 then
					char_log(0, " HORSE_BUY", "BEGIN")
					pc.changemoney(-100000)
					char_log(0, " HORSE_BUY", " DEC money 100000")
					horse.unride()
					horse.advance()
					horse.ride()
					char_log(0, " HORSE_BUY", "INC horse_advance 1")
					pc.give_item2("50051", 1)
					char_log(0, " HORSE_BUY", "INC 50051 1")
					char_log(0, " HORSE_BUY", "END")
					say_title(gameforge.horse_exchange_ticket._20_sayTitle)
					say(gameforge.pony_buy._310_say)
					setstate(start)
					q.done()
				else
					say_title(gameforge.horse_exchange_ticket._20_sayTitle)
					say(gameforge.pony_buy._320_say)
				end
			elseif 2==b then
				say_title(gameforge.horse_exchange_ticket._20_sayTitle)

				say(gameforge.pony_buy._330_say)
			elseif 3==b then
				say_title(gameforge.horse_exchange_ticket._20_sayTitle)
				say(gameforge.pony_buy._340_say)
				local b= select(gameforge.locale.guild.yes, gameforge.pony_buy._350_select)
				if 1==b then
					setstate(start)
				elseif 2==b then
				else
					say(string.format(gameforge.find_squareguard._70_say, b))
				end
			else
				say(string.format(gameforge.find_squareguard._70_say, b))
			end
		end
	end
	state failure begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.pony_buy._360_makequestbutton)
			q.set_title(gameforge.pony_buy._360_makequestbutton)
			q.start()
		end
		when button begin
			say_title(gameforge.pony_buy._360_makequestbutton)
						say_reward(gameforge.pony_buy._370_sayReward)
						say_reward(gameforge.pony_buy._380_sayReward)
			setstate(start)
			q.done()
		end
		when info begin
			say_title(gameforge.pony_buy._360_makequestbutton)
						say_reward(gameforge.pony_buy._370_sayReward)
						say_reward(gameforge.pony_buy._380_sayReward)
			setstate(start)
			q.done()
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end

05/30/2017 04:14 OrvRoli#12524

Pleeease Help

0530 04:08:16765 :: Traceback (most recent call last):

0530 04:08:16765 :: File "ui.py", line 617, in OnSetFocus

0530 04:08:16765 :: AttributeError
0530 04:08:16765 :: :
0530 04:08:16765 :: 'module' object has no attribute 'EnableCaptureInput'
0530 04:08:16765 ::

0530 04:08:17790 :: granny_shared_vbs:
0530 04:08:17790 :: 0: 40
0530 04:08:17794 :: 1: 20
0530 04:08:17794 :: 2: 20
0530 04:08:17795 :: 3: 40
0530 04:08:17795 :: 4: 0
0530 04:08:17795 :: 5: 20
0530 04:08:17796 :: 6: 0
0530 04:08:17796 :: 7: 0
0530 04:08:17796 :: 8: 0

05/30/2017 12:16 Valerius1992#12525

Ich habe ein Problem.

Meine Pferdequest sollte eig gehen, dennoch kann man kein Pferd rufen wen das pferd lvl 2 oder h�her ist,
Miligaul haben wir getestet ( 21 ) Das geht auf jeden fall

Dennoch, Wo kann ich das genau umstellen das das Pferdebild es rufen kann, denn im cha steht nicht mal eine fehler meldung das ich es nicht rufen kann, oder nicht mal "ERROR"

Hier meine Questen die ich im moment f�r die PM-Quest und co habe:

Pony_levelup.quest

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

pony_buy.quest

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

Page 835 of 845

835