[SERVICE] Die Questkontrolle

Page 445 of 845 « First 345395435443444 445 446447455495545 Last »
08/27/2012 00:39 zunmt2#6661
Hello please someone help.me please

PHP Code:
quest medalha begin 
    state start begin 
        when 71158.use begin 
            if pc.getqf("medalha_use") == 0 then 
                     
                chat("Medalha do Herói Ativada!") 
                pc.setqf("medalha_use", 1) 
                pc.setqf("medalha", 1) 
                cmdchat("buff7") 
                affect.add_collect(apply.ATT_GRADE_BONUS, 30,60*60*24*365*60) 
                affect.add_collect(apply.MAX_HP, 10,60*60*24*365*60) 
                affect.add_collect(apply.ATT_SPEED, 20,60*60*24*365*60) 
                affect.add_collect(apply.CAST_SPEED, 20,60*60*24*365*60) 
                affect.add_collect(apply.EXP_DOUBLE_BONUS, 50,60*60*24*365*60) 
                affect.add_collect(apply.MAX_SP, 10,60*60*24*365*60) 
             
            else 
                chat("Medalha do Herói Desativada!") 
                affect.remove_collect(apply.ATT_GRADE_BONUS, 30,60*60*24*365*60) 
                affect.remove_collect(apply.MAX_HP, 10,60*60*24*365*60) 
                affect.remove_collect(apply.ATT_SPEED, 20,60*60*24*365*60) 
                affect.remove_collect(apply.CAST_SPEED, 20,60*60*24*365*60) 
                affect.remove_collect(apply.EXP_DOUBLE_BONUS, 50,60*60*24*365*60) 
                affect.remove_collect(apply.MAX_SP, 10,60*60*24*365*60) 
                pc.setqf("medalha_use", 0) 
                pc.setqf("medalha", 0) 
             
            end 
        end 
        when logout or login with pc.getqf("medalha_use") == 1 begin 
             
            pc.setqf("medalha_use", 0) 
            pc.setqf("medalha", 0) 
             
            chat("Medalha do Herói Desativada!") 
            affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)    
            affect.remove_collect(apply.MAX_HP, 1000, 60*60*8) 
            affect.remove_collect(apply.ATT_SPEED, 20,60*60*24*365*60) 
            affect.remove_collect(apply.CAST_SPEED, 20,60*60*24*365*60) 
            affect.remove_collect(apply.EXP_DOUBLE_BONUS, 50,60*60*24*365*60) 
            affect.remove_collect(apply.MAX_SP, 10,60*60*24*365*60) 
        end 
    end 
end 
:confused:
08/27/2012 05:21 Bolleboy#6662
Weiß jemand wo das Problem liegt ? :confused:
PHP Code:
quest neue_lieferung begin
    state start begin
        when login or levelup with pc.get_level()>= 40 begin
            set_state(info)
        end
    end
    state info begin
        when letter begin
            send_letter("Neue Lieferung!")
            local v = find_npc_by_vnum(9002)
            if v != 0 then
                target.vid("target1", v, "Rüstungshändler")
            end
        end
        when button or info begin
            say_title("Neue Lieferung!")
            say("Gehe sofort! zum Rüstungshändler,")
            say("er möchte mit dir sprechen!.")
        end
        when target1.target.click or 9002.chat."Neue Lieferung" begin    
            target.delete("target1")
            say_title("Paul")
            say("Hey, da bist du ja endlich...")
            say("ging das nicht schneller?!")
            say("Ich warte schon den ganzen Tag auf dich.")
            say("Ich erwarte eine große Lieferung.")
            say("Du musst mir helfen! Mein Lieferant")
            say("kann nicht liefern weil seine Route")
            say("von hunderten Orks und deren Anführer,")
            say("belagert wurde. Da ich hier leider")
            say("nicht weg darf vom Hauptmann,")
            say("dachte ich mir du könntest das erledigen.")
            say("Natürlich bekommst du auch eine schöne")
            say("Belohnung dafür...")
            say("Wenn du fertig bist, komm einfach")
            say("wieder zu mir zurück")
            say("OK ??")
            pc.setqf(636,0)
            q.set_counter("Schwarzer Ork", 100)
            pc.setqf(691,0)
            q.set_counter("Oberork",1)
            set_state(kill)
        end
    end
    state kill begin
        when letter begin
            send_letter("Töte die Orks!")            
        end
        when button or info begin
            say_title("Töte die Orks!")
            say("Töte 100 Schwarzer Ork")
            say("und deren Anführer Oberork.")
            clear_letter()
        end
        when kill begin
            if npc.get_race() == 636 then
            local count = pc.getqf(636) -1
            if count <= 100 then
            pc.setqf(636,count)
            q.set_counter(636, -count)
        end    
        when 691.kill begin
            pc.setqf(691,count)
            q.set_counter(691, -count)
            send_letter("Der Anführer ist TOT!")
        end        
        when button or info begin        
            say_title("Neue Lieferung!")    
            say("Glückwunsch!")
            say("Du hast sie alle vernichtet.")
            say("Dank dir kann der Rüstungshändler")
            say("wieder beliefert werden.")
            say("Geh schnell zu ihm und hol")
            say("dir deine ersehnte Belohnung.")
            clear_letter()
            set_state(rückkehr)
        end        
    end
    state rückkehr begin
        when letter begin
            send_letter("Neue Lieferung")
            local v = find_npc_by_vnum(9002)
            if v != 0 then
                target.vid("target2", v, "Rüstungshändler")
            end
        end
        when button or info begin
            say_title("Auf zum Händler")
            say("Begieb dich sofort!")
            say("zum Rüstungshändler.")
        end
        when target2.target.click or 9002.chat."Neue Lieferung" begin    
            target.delete("target2")
            say_title("Paul")
            say("Du bist ein ziemlich zäher Typ...")
            say("Löscht die ganze Orksippe alleine")
            say("aus. Hätte ich nicht erwartet...")
            say("Nundenn du hast es geschafft,")
            say("endlich bekomme ich meine Lieferung.")
            say("Hier nimm das als zeichen meiner")
            say("Dankbarkeit.")
            clear_letter()
            pc.give_gold(10000000)
            set_state(complete)
        end
        if    pc.job == 0 then
            pc.give_item2(11289)
            pc.give_item2(12249)
            pc.give_item2(13049)
        end
        if    pc.job == 1 then
            pc.give_item2(11489)
            pc.give_item2(12389)
            pc.give_item2(13049)
        end
        if    pc.job == 2 then
            pc.give_item2(11689)
            pc.give_item2(12529)
            pc.give_item2(13049)
        end
        if    pc.job == 3 then
            pc.give_item2(11889)
            pc.give_item2(12669)
            pc.give_item2(13049)
        end
    end
    state complete begin
    end
end 
FreeBsD8.2 gibt folgende Fehlermeldung: syntax error: [string "kill"]:7: unexpected symbol near "when". :129:ERROR

Hoffe ihr könnt mir helfen :handsdown:
08/27/2012 19:58 heckii123#6663
PHP Code:
    when 70028.use begin  
         say_title("Militärpferdeitem:") 
         say("Beliebiger Text") 
         say("Beliebiger Text,") 
         say("Bist du sicher das du auf diesem Charackter eines haben möchtest?") 
         say("Dieser Vorgang kann nicht Rückgängig gemacht werden.") 
         local s = select("Benutzen!", "Lieber nicht") 

         if s == 1 then 
            if pc.count_item(70028) >= 1 then 
                pc.removeitem("70028", 1) 
                pc.give_item2("50053", 1) 
                horse.set_level(21) 
            end 
        end 
    end 

Geht nicht in VPC Kommt folgender Fehler

must start with 'quest'
itempferd.quest:1Error occured on compile itempferd.quest
08/28/2012 11:47 zunmt2#6664
PHP Code:
quest Militärpferdeitem begin
    state start begin
        when 70028.use begin  
             say_title("Militärpferdeitem:") 
             say("Beliebiger Text") 
             say("Beliebiger Text,") 
             say("Bist du sicher das du auf diesem Charackter eines haben möchtest?") 
             say("Dieser Vorgang kann nicht Rückgängig gemacht werden.") 
             local s = select("Benutzen!", "Lieber nicht") 

             if s == 1 then 
                if pc.count_item(70028) >= 1 then 
                    pc.removeitem("70028", 1) 
                    pc.give_item2("50053", 1) 
                    horse.set_level(21) 
                end 
            end 
        end 
Test now!
08/28/2012 22:14 Cheddy#6665
PHP Code:
quest name begin
    state start begin
        when 70028.use begin  
            say_title("Militärpferdeitem:") 
            say("Beliebiger Text") 
            say("Beliebiger Text,") 
            say("Bist du sicher das du auf diesem Charackter eines haben möchtest?") 
            say("Dieser Vorgang kann nicht Rückgängig gemacht werden.") 
            local s = select("Benutzen!", "Lieber nicht") 
            if s == 1 then 
                if pc.count_item(70028) >= 1 then 
                    pc.removeitem("70028", 1) 
                    pc.give_item2("50053", 1) 
                    horse.set_level(21) 
                else
                end
            else
                return
            end
        end
    end
end 
So stimmt es.
08/29/2012 04:47 .Seriously#6666
PHP Code:
quest fbs begin
    state start begin
        when 50136.use begin
            if pc.get_job() == 0 then
                if pc.get_skill_group() == 1 then
                local krieger = number(1, 6)
                if krieger == 1 then
                    pc.give_item2("50401", 1)
                elseif krieger == 2 then
                    pc.give_item2("50402", 1)
                elseif krieger == 3 then
                    pc.give_item2("50403", 1)
                elseif krieger == 4 then
                    pc.give_item2("50404", 1)
                elseif krieger == 5 then
                    pc.give_item2("50405", 1)
                elseif krieger == 6 then
                    pc.give_item2("50406", 1)
            elseif pc.get_skill_group() == 2 then
                local kriegerm = number(1, 6)
                if kriegerm == 1 then
                    pc.give_item2("50416", 1)
                elseif kriegerm == 2 then
                    pc.give_item2("50417", 1)
                elseif kriegerm == 3 then
                    pc.give_item2("50418", 1)
                elseif kriegerm == 4 then
                    pc.give_item2("50419", 1)
                elseif kriegerm == 5 then
                    pc.give_item2("50420", 1)
                elseif kriegerm == 6 then
                    pc.give_item2("50421", 1)
            end--if
        end--if
    end--if
end--if
            elseif pc.get_job() == 1 then
                if pc.get_skill_group() == 1 then
                local ninja = number(1, 6)
                if ninja == 1 then
                    pc.give_item2("50431", 1)
                elseif ninja == 2 then
                    pc.give_item2("50432", 1)
                elseif ninja == 3 then
                    pc.give_item2("50433", 1)
                elseif ninja == 5 then
                    pc.give_item2("50434", 1)
                elseif ninja == 5 then
                    pc.give_item2("50435", 1)
                elseif ninja == 6 then
                    pc.give_item2("50436", 1)
            elseif pc.get_skill_group() == 2 then
                local ninjaf = number(1, 6)
                if ninjaf == 1 then
                    pc.give_item2("50446", 1)
                elseif ninjaf == 2 then
                    pc.give_item2("50447", 1)
                elseif ninjaf == 3 then
                    pc.give_item2("50448", 1)
                elseif ninjaf == 5 then
                    pc.give_item2("50449", 1)
                elseif ninjaf == 5 then
                    pc.give_item2("50450", 1)
                elseif ninjaf == 6 then
                    pc.give_item2("50451", 1)
            end--if
        end--if
    end--if
            elseif pc.get_job() == 2 then
                if pc.get_skill_group() == 1 then
                local sura = number(1, 6)
                if sura == 1 then
                    pc.give_item2("50461", 1)
                elseif sura == 2 then
                    pc.give_item2("50462", 1)
                elseif sura == 3 then
                    pc.give_item2("50463", 1)
                elseif sura == 5 then
                    pc.give_item2("50464", 1)
                elseif sura == 5 then
                    pc.give_item2("50465", 1)
                elseif sura == 6 then
                    pc.give_item2("50466", 1)
            elseif pc.get_skill_group() == 2 then
                local suraw = number(1, 6)
                if suraw == 1 then
                    pc.give_item2("50476", 1)
                elseif suraw == 2 then
                    pc.give_item2("50477", 1)
                elseif suraw == 3 then
                    pc.give_item2("50478", 1)
                elseif suraw == 5 then
                    pc.give_item2("50479", 1)
                elseif suraw == 5 then
                    pc.give_item2("50480", 1)
                elseif suraw == 6 then
                    pc.give_item2("50481", 1)
            end--if
        end--if
    end--if
            elseif pc.get_job() == 3 then
                if pc.get_skill_group() == 1 then
                local schami = number(1, 6)
                if schami == 1 then
                    pc.give_item2("50491", 1)
                elseif schami == 2 then
                    pc.give_item2("50492", 1)
                elseif schami == 3 then
                    pc.give_item2("50493", 1)
                elseif schami == 5 then
                    pc.give_item2("50494", 1)
                elseif schami == 5 then
                    pc.give_item2("50495", 1)
                elseif schami == 6 then
                    pc.give_item2("50496", 1)
            elseif pc.get_skill_group() == 2 then
                local schamis = number(1, 6)
                if schamis == 1 then
                    pc.give_item2("50506", 1)
                elseif schamis == 2 then
                    pc.give_item2("50507", 1)
                elseif schamis == 3 then
                    pc.give_item2("50508", 1)
                elseif schamis == 5 then
                    pc.give_item2("50509", 1)
                elseif schamis == 5 then
                    pc.give_item2("50510", 1)
                elseif schamis == 6 then
                    pc.give_item2("50511", 1)
                    end--if
                end--if
            end--if
        end--when
    end--state 
end--quest 

ist irgendein end fehler.
08/29/2012 12:37 heckii123#6667
PHP Code:
quest login begin  
    state start begin  
        when login begin  
            notice(""..pc.get_name ().."Viel Spaß auf BladeMt2)  
            notice("Viele Infos zum Server findest du unter:")  
            notice("Homepage : 5.105.9.48")  
            notice("Forum : BladeMt2.***********")  
            notice("Unseren Teamspeak 3 Server erreicht ihr unter:")  
            notice("85.214.44.188 ein Port ist nicht Nötig")  
            notice("gebt bitte euren Benutzernamen vom Spiel an!")  
            notice("")  
            notice("Für Fragen und Probleme steht euch das Ingame Team zu verfügung.")  
        end  
     end  
end 

Error occured on compile ersterplay.quest ?!?! :8
08/29/2012 12:59 .Seriously#6668
PHP Code:
quest login begin  
    state start begin  
        when login begin  
            notice(""..pc.get_name ().." Viel Spaß auf BladeMt2")  
            notice("Viele Infos zum Server findest du unter:")  
            notice("Homepage : 5.105.9.48")  
            notice("Forum : BladeMt2.***********")  
            notice("Unseren Teamspeak 3 Server erreicht ihr unter:")  
            notice("85.214.44.188 ein Port ist nicht Nötig")  
            notice("gebt bitte euren Benutzernamen vom Spiel an!")  
            notice("")  
            notice("Für Fragen und Probleme steht euch das Ingame Team zu verfügung.")  
        end  
     end  
end 
08/29/2012 14:46 nachuhi#6669
Quote:
Originally Posted by AnNoTriX View Post
PHP Code:
quest fbs begin
    state start begin
        when 50136.use begin
            if pc.get_job() == 0 then
                if pc.get_skill_group() == 1 then
                local krieger = number(1, 6)
                if krieger == 1 then
                    pc.give_item2("50401", 1)
                elseif krieger == 2 then
                    pc.give_item2("50402", 1)
                elseif krieger == 3 then
                    pc.give_item2("50403", 1)
                elseif krieger == 4 then
                    pc.give_item2("50404", 1)
                elseif krieger == 5 then
                    pc.give_item2("50405", 1)
                elseif krieger == 6 then
                    pc.give_item2("50406", 1)
            elseif pc.get_skill_group() == 2 then
                local kriegerm = number(1, 6)
                if kriegerm == 1 then
                    pc.give_item2("50416", 1)
                elseif kriegerm == 2 then
                    pc.give_item2("50417", 1)
                elseif kriegerm == 3 then
                    pc.give_item2("50418", 1)
                elseif kriegerm == 4 then
                    pc.give_item2("50419", 1)
                elseif kriegerm == 5 then
                    pc.give_item2("50420", 1)
                elseif kriegerm == 6 then
                    pc.give_item2("50421", 1)
            end--if
        end--if
    end--if
end--if
            elseif pc.get_job() == 1 then
                if pc.get_skill_group() == 1 then
                local ninja = number(1, 6)
                if ninja == 1 then
                    pc.give_item2("50431", 1)
                elseif ninja == 2 then
                    pc.give_item2("50432", 1)
                elseif ninja == 3 then
                    pc.give_item2("50433", 1)
                elseif ninja == 5 then
                    pc.give_item2("50434", 1)
                elseif ninja == 5 then
                    pc.give_item2("50435", 1)
                elseif ninja == 6 then
                    pc.give_item2("50436", 1)
            elseif pc.get_skill_group() == 2 then
                local ninjaf = number(1, 6)
                if ninjaf == 1 then
                    pc.give_item2("50446", 1)
                elseif ninjaf == 2 then
                    pc.give_item2("50447", 1)
                elseif ninjaf == 3 then
                    pc.give_item2("50448", 1)
                elseif ninjaf == 5 then
                    pc.give_item2("50449", 1)
                elseif ninjaf == 5 then
                    pc.give_item2("50450", 1)
                elseif ninjaf == 6 then
                    pc.give_item2("50451", 1)
            end--if
        end--if
    end--if
            elseif pc.get_job() == 2 then
                if pc.get_skill_group() == 1 then
                local sura = number(1, 6)
                if sura == 1 then
                    pc.give_item2("50461", 1)
                elseif sura == 2 then
                    pc.give_item2("50462", 1)
                elseif sura == 3 then
                    pc.give_item2("50463", 1)
                elseif sura == 5 then
                    pc.give_item2("50464", 1)
                elseif sura == 5 then
                    pc.give_item2("50465", 1)
                elseif sura == 6 then
                    pc.give_item2("50466", 1)
            elseif pc.get_skill_group() == 2 then
                local suraw = number(1, 6)
                if suraw == 1 then
                    pc.give_item2("50476", 1)
                elseif suraw == 2 then
                    pc.give_item2("50477", 1)
                elseif suraw == 3 then
                    pc.give_item2("50478", 1)
                elseif suraw == 5 then
                    pc.give_item2("50479", 1)
                elseif suraw == 5 then
                    pc.give_item2("50480", 1)
                elseif suraw == 6 then
                    pc.give_item2("50481", 1)
            end--if
        end--if
    end--if
            elseif pc.get_job() == 3 then
                if pc.get_skill_group() == 1 then
                local schami = number(1, 6)
                if schami == 1 then
                    pc.give_item2("50491", 1)
                elseif schami == 2 then
                    pc.give_item2("50492", 1)
                elseif schami == 3 then
                    pc.give_item2("50493", 1)
                elseif schami == 5 then
                    pc.give_item2("50494", 1)
                elseif schami == 5 then
                    pc.give_item2("50495", 1)
                elseif schami == 6 then
                    pc.give_item2("50496", 1)
            elseif pc.get_skill_group() == 2 then
                local schamis = number(1, 6)
                if schamis == 1 then
                    pc.give_item2("50506", 1)
                elseif schamis == 2 then
                    pc.give_item2("50507", 1)
                elseif schamis == 3 then
                    pc.give_item2("50508", 1)
                elseif schamis == 5 then
                    pc.give_item2("50509", 1)
                elseif schamis == 5 then
                    pc.give_item2("50510", 1)
                elseif schamis == 6 then
                    pc.give_item2("50511", 1)
                    end--if
                end--if
            end--if
        end--when
    end--state 
end--quest 

ist irgendein end fehler.
du hast bei krieger schon des when geschlossen ^^

PHP Code:
quest fbs begin 
    state start begin 
        when 50136.use begin 
            if pc.get_job() == 0 then 
                if pc.get_skill_group() == 1 then 
                    local krieger = number(1, 6) 
                    if krieger == 1 then 
                        pc.give_item2("50401", 1) 
                    elseif krieger == 2 then 
                        pc.give_item2("50402", 1) 
                    elseif krieger == 3 then 
                        pc.give_item2("50403", 1) 
                    elseif krieger == 4 then 
                        pc.give_item2("50404", 1) 
                    elseif krieger == 5 then 
                        pc.give_item2("50405", 1) 
                    elseif krieger == 6 then 
                        pc.give_item2("50406", 1) 
                elseif pc.get_skill_group() == 2 then 
                    local kriegerm = number(1, 6) 
                    if kriegerm == 1 then 
                        pc.give_item2("50416", 1) 
                    elseif kriegerm == 2 then 
                        pc.give_item2("50417", 1) 
                    elseif kriegerm == 3 then 
                        pc.give_item2("50418", 1) 
                    elseif kriegerm == 4 then 
                        pc.give_item2("50419", 1) 
                    elseif kriegerm == 5 then 
                        pc.give_item2("50420", 1) 
                    elseif kriegerm == 6 then 
                        pc.give_item2("50421", 1) 
                    end--if 
                end--if 
            end--if
            elseif pc.get_job() == 1 then 
                if pc.get_skill_group() == 1 then 
                    local ninja = number(1, 6) 
                    if ninja == 1 then 
                        pc.give_item2("50431", 1) 
                    elseif ninja == 2 then 
                        pc.give_item2("50432", 1) 
                    elseif ninja == 3 then 
                        pc.give_item2("50433", 1) 
                    elseif ninja == 5 then 
                        pc.give_item2("50434", 1) 
                    elseif ninja == 5 then 
                        pc.give_item2("50435", 1) 
                    elseif ninja == 6 then 
                        pc.give_item2("50436", 1) 
                elseif pc.get_skill_group() == 2 then 
                    local ninjaf = number(1, 6) 
                    if ninjaf == 1 then 
                        pc.give_item2("50446", 1) 
                    elseif ninjaf == 2 then 
                        pc.give_item2("50447", 1) 
                    elseif ninjaf == 3 then 
                        pc.give_item2("50448", 1) 
                    elseif ninjaf == 5 then 
                        pc.give_item2("50449", 1) 
                    elseif ninjaf == 5 then 
                        pc.give_item2("50450", 1) 
                    elseif ninjaf == 6 then 
                        pc.give_item2("50451", 1) 
                    end--if 
                end--if 
            end--if 
            elseif pc.get_job() == 2 then 
                if pc.get_skill_group() == 1 then 
                    local sura = number(1, 6) 
                    if sura == 1 then 
                        pc.give_item2("50461", 1) 
                    elseif sura == 2 then 
                        pc.give_item2("50462", 1) 
                    elseif sura == 3 then 
                        pc.give_item2("50463", 1) 
                    elseif sura == 5 then 
                        pc.give_item2("50464", 1) 
                    elseif sura == 5 then 
                        pc.give_item2("50465", 1) 
                    elseif sura == 6 then 
                        pc.give_item2("50466", 1) 
                elseif pc.get_skill_group() == 2 then 
                    local suraw = number(1, 6) 
                    if suraw == 1 then 
                        pc.give_item2("50476", 1) 
                    elseif suraw == 2 then 
                        pc.give_item2("50477", 1) 
                    elseif suraw == 3 then 
                        pc.give_item2("50478", 1) 
                    elseif suraw == 5 then 
                        pc.give_item2("50479", 1) 
                    elseif suraw == 5 then 
                        pc.give_item2("50480", 1) 
                    elseif suraw == 6 then 
                        pc.give_item2("50481", 1) 
                    end--if 
                end--if 
            end--if 
            elseif pc.get_job() == 3 then 
                if pc.get_skill_group() == 1 then 
                    local schami = number(1, 6) 
                    if schami == 1 then 
                        pc.give_item2("50491", 1) 
                    elseif schami == 2 then 
                        pc.give_item2("50492", 1) 
                    elseif schami == 3 then 
                        pc.give_item2("50493", 1) 
                    elseif schami == 5 then 
                        pc.give_item2("50494", 1) 
                    elseif schami == 5 then 
                        pc.give_item2("50495", 1) 
                    elseif schami == 6 then 
                        pc.give_item2("50496", 1) 
                elseif pc.get_skill_group() == 2 then 
                    local schamis = number(1, 6) 
                    if schamis == 1 then 
                        pc.give_item2("50506", 1) 
                    elseif schamis == 2 then 
                        pc.give_item2("50507", 1) 
                    elseif schamis == 3 then 
                        pc.give_item2("50508", 1) 
                    elseif schamis == 5 then 
                        pc.give_item2("50509", 1) 
                    elseif schamis == 5 then 
                        pc.give_item2("50510", 1) 
                    elseif schamis == 6 then 
                        pc.give_item2("50511", 1) 
                    end--if 
                end--if 
            end--if 
        end--when 
    end--state  
end--quest 
so sollte es gehen :)
08/29/2012 15:03 Sp0ngeb0b ist cool#6670
oder so ;)
PHP Code:
quest fbs begin
    state start begin
        when 50136.use begin 
            local items = {
                [0] = {[1] = {50401,50402,50403,50404,50405,50406},[2] = {50416,50417,50418,50419,50420,50421},},
                [1] = {[1] = {50431,50432,50433,50434,50435,50436},[2] = {50446,50447,50448,50449,50450,50451},},
                [2] = {[1] = {50461,50462,50463,50464,50465,50466},[2] = {50476,50477,50478,50479,50480,50481},},
                [3] = {[1] = {50491,50492,50493,50494,50495,50496},[2] = {50506,50507,50508,50509,50510,50511},},
            }
            pc.give_item2(items[pc.get_job()][pc.get_skill_group()][number(1,table.getn(items[pc.get_job()][pc.get_skill_group()]))],1)
        end
    end
end 
08/29/2012 15:29 [SA]Invictus#6671
Quote:
quest ingamebann2 begin
-- Benötigt die neueste Version von Mijagos Questlib.
state start begin
when 40002.use with pc.is_gm() begin
say("Was möchtest du tun?")
local s = select('Bannen','Entbannen',"Nichts")
if s == 3 then return end
local ban,bantxt,bantxt2 = "BLOCK","bannen","gebannt"
if s == 2 then
ban,bantxt,bantxt2 = "OK","entbannen","entbannt"
end
say(col.blue('Spieler '..bantxt)); say('[ENTER]Gib den Spielernamen ein.[ENTER](ein Teil reicht auch)')
local inp = input(); inp = mysql_escape(inp)
if inp == "" or inp == pc.get_name() then
say(col.red('Ungültige Eingabe.[ENTER]Abbruch!'))
return
end
local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like \\"%[%\\"')
if q == "ERROR" then
say(col.red('Fehler beim Lesen der Daten oder es existiert niemand mit diesem Namen.'))
return
end
say('Wähle den User, der '..bantxt2..' werden soll:')
local wahl = q.name; table.insert(wahl,"-Abbruch-")
table.insert(wahl,1,6) -- 6 ist die Anzahl der Maximalen User auf einer Seite.
local auswahl = select2(wahl)
if wahl[auswahl] == "-Abbruch-" then return end
say('Den Spieler \\"'..q.name[auswahl]..'\\" wirklich '..bantxt..'?')
if select("Ja","Nein") == 2 then return end
mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
say('Der Spieler wurde gebannt.')
end
end
end


Quote:
quest ingamebann2 begin
-- Benötigt die neueste Version von Mijagos Questlib.
state start begin
when 9003.chat.with pc.is_gm() begin
say("Was möchtest du tun?")
local s = select('Bannen','Entbannen',"Nichts")
if s == 3 then return end
local ban,bantxt,bantxt2 = "BLOCK","bannen","gebannt"
if s == 2 then
ban,bantxt,bantxt2 = "OK","entbannen","entbannt"
end
say(col.blue('Spieler '..bantxt)); say('[ENTER]Gib den Spielernamen ein.[ENTER](ein Teil reicht auch)')
local inp = input(); inp = mysql_escape(inp)
if inp == "" or inp == pc.get_name() then
say(col.red('Ungültige Eingabe.[ENTER]Abbruch!'))
return
end
local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like \\"%[%\\"')
if q == "ERROR" then
say(col.red('Fehler beim Lesen der Daten oder es existiert niemand mit diesem Namen.'))
return
end
say('Wähle den User, der '..bantxt2..' werden soll:')
local wahl = q.name; table.insert(wahl,"-Abbruch-")
table.insert(wahl,1,6) -- 6 ist die Anzahl der Maximalen User auf einer Seite.
local auswahl = select2(wahl)
if wahl[auswahl] == "-Abbruch-" then return end
say('Den Spieler \\"'..q.name[auswahl]..'\\" wirklich '..bantxt..'?')
if select("Ja","Nein") == 2 then return end
mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
say('Der Spieler wurde gebannt.')
end
end
end
Quote:
quest mobplacer begin
state start begin
when login with pc.is_gm() begin
send_letter('Mobplacer')
end
when button or info begin
say('Willkommen im Mobplacer von Mijago[ENTER]Was möchtest du tun?')
local sel = select('Hinzufügen','Entfernen','Nichts')
if sel == 2 then
mobplacer.deletemob()
elseif sel == 1 then
mobplacer.mob_place()
end
send_letter('Mobplacer')
end
function mob_folder(mid)
if mid == nil then
mid = pc.get_map_index()
end
local d,e = io.open('locale/germany/map/index',"r"),{}
for line in d:lines() do
local c = split(line,' ')
if c[2] ~= nil then
e[tonumber(c[1])] = c[2]
end
end
return e[mid]
end
function mob_place(mid)
if mid == nil then
mid = pc.get_map_index()
end
say('Du möchtest ein Monster platzieren?[ENTER]Was soll platziert werden?')
say('Mapindex: '..mid..' | x: '..pc.get_local_x()..' | y: '..pc.get_local_y())
local was = select('Einzelner Mob','Gruppe','Random Gruppe','Nichts')
local art,nm = 'm','es Monster'
if was == 4 then return end
if was == 2 then
art,nm = 'g','e Gruppe'
elseif was == 3 then
art,nm = 'r','e Random Gruppe'
end
say('Welcher Mob soll platziert werden?')
say('Mapindex: '..mid..' | Ordner: '..mobplacer.mob_folder(mid)..' | x: '..pc.get_local_x()..' | y: '..pc.get_local_y())
local mob = input()
say('Sicher, dass dies'..nm..' hier gespawnt werden soll?')
if select("Ja","Nein") == 2 then return end
mobplacer.appendmob(art,mob)
say('Der Mob wurde hinzugefügt.')
end
function appendmob(art,id,mid)
local tab = ' '
if mid == nil then
mid = pc.get_map_index()
end
say('Gib die Zeit an, die zwischen dem Respawns liegen soll.[ENTER](In Sekunden)')
local respawn = input()
local appendline = art..tab..pc.get_local_x()..tab..pc.get_local_y(). .tab..'10 10 0 0 '..respawn..'s 100 1 '..id
local into = io.open('locale/germany/map/'..mobplacer.mob_folder(mid)..'/regen.txt','a+')
into:write('\\n'..appendline)
into:close()
end
function deletemob()
local tab = ' '
say('Was willst du entfernen?')
local was = select('Einzelner Mob','Gruppe','Random Gruppe','Nichts')
local art,nm = 'm','Monster'
if was == 4 then return end
if was == 2 then
art,nm = 'g','Gruppe'
elseif was == 3 then
art,nm = 'r','Random Gruppe'
end
say('Auswahl treffen:')
local det,sl,mobs,inc,order = io.open('locale/germany/map/'..mobplacer.mob_folder()..'/regen.txt'),{6},{},0,{}
for line in det:lines() do
local data = split(line,tab)
inc = inc+1
order[inc] = line
if data[1] == art then
if tonumber(data[2]) > pc.get_local_x()-10 and tonumber(data[2]) < pc.get_local_x()+10 and tonumber(data[3]) > pc.get_local_y()-10 and tonumber(data[3]) < pc.get_local_y()+10 then
table.insert(sl,nm..' '..data[11]..': x'..data[2]..' y'..data[3])
table.insert(mobs,{inc,data[11]})
end
end
end
det:close()
table.insert(sl,'Abbrechen')
local sel = select2(sl)
if sl[sel] == 'Abbrechen' then return end
table.remove(order,mobs[sel][1])
local writedata = io.open('locale/germany/map/'..mobplacer.mob_folder(mid)..'/regen.txt',"w")
local appendstr = ''
table.foreach(order,function(i,l) appendstr = appendstr..'\\n'..l end)
writedata:write(appendstr)
writedata:close()
say('Monster Entfernt.')
end
end
end

VPC kommt kein fehler kommt garnix....aber ingame wnn ich auf item klicke kommt nix wenn ich gemi anklicke koimmt nix und eine quest bekomme ich auch nicht wegen mobplacer


doch ein fehler bei Ingame aber der rest klappt irgendwie nicht
[Only registered and activated users can see links. Click Here To Register...]

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

€dit. Questlib von Mijago ist drinne...
08/29/2012 23:07 .iCoco™#6672
Quest:

quest achievement_shop begin
state start begin
when 9004.chat."Achievementpunkte eintauschen" begin
local preis = 250 --Preis
local actual_achievement_points = pc.getqf("achievement_points") --in variable speichern
say("Gegen welches Item möchtest du deine AP eintauschen?")

local s = select("Starterset [5 AP]", " Muschel [2 AP]", "Schließen")

if s == 1 then
if actual_achievement_points >=5 then
pc.give_item2(27987)
pc.setqf("achievement_points", actual_achievement_points - preis)
say("ITEM gekauft. Deine Archievment-Points betragen nun: "..pc.getqf("achievement_points")..".")
else
say("Der Eintausch von Achiviementpunkten ist fehlgeschlagen.")
say("Dein derzeitiger Stand beträgt nur "..pc.getqf("achievement_points").." AP!")

if s == 1 then
if actual_achievement_points >=5 then
pc.give_item2(27987)
pc.setqf("achievement_points", actual_achievement_points - preis)
say("ITEM gekauft. Deine Archievment-Points betragen nun: "..pc.getqf("achievement_points")..".")
else
say("Der Eintausch von Achiviementpunkten ist fehlgeschlagen.")
say("Dein derzeitiger Stand beträgt nur "..pc.getqf("achievement_points").." AP!")
end
end
end
end
end

Fehler:
assertion failure : nested==0
achievement_shop.quest :31 :Abort trap (core dumped)
Error occured on compile achievement_shop.quest
08/30/2012 00:15 .BonG™#6673
Ich habe nicht viel ahnung von Questen :rolleyes: bin das wegen Clientmodder :D

Wie kann ich bestimmen ab welchem lvl man auf die map kann ich möchte das man mit lvl 120 auf die map kann.

PHP Code:
quest warp4 begin
    state start begin
        when 20011.chat."Boss Map" begin
        
        say_title("Boss Map")
        say("")
        say("Erfahrene Krieger haben weit im Inneren")
        say("des Kontinentes einen längst vergessenen Ort")
        say("entdeckt. Es heißt, dass es einst das Zuhause,")
        say("der Kaiserfamilie war. Über die Jahre jedoch ")
        say("haben sich dort wilde Monster angesammelt und")
        say("die Kraft des Bösen, insbesondere der")
        say("Metinsteine scheint dort sehr groß zu sein.")
        if pc.getqf("vrfirstentry") == 0 then
            pc.setqf("vrfirstentry", 1)
            say("")
        else
            say("")
        end
        wait()
        if pc.count_item(70030) >= 1 then
        say_title("Boss Map")
        say("")
            if get_time() > pc.getqf("next_warp_vr_time") then
                say("Wie ich sehe, hat dir die Gemi")
                say("das Rote Monokel gegeben")
                say("Ich denke du wirst dich in der Boss Map")
                say("damit zurechtfinden.")
                say("")
                say("")
                say_reward("Soll ich dich in die Boss Map teleportieren?")
                    local s=select("Ja", "Nein")
                        if s == 1 then
                            pc.remove_item("70030")
                            pc.warp(40000,65000)
                        else
                            return
                        end
            else
                say_title("Boss Map")
                say("Du kannst dieses Gebiet")
                say("nur alle 24 Stunden betreten.")
                say("Bitte komm später wieder")
            end
        else
        say_title("Boss Map")
        say("")
        say("Ich kann dich dort hin teleportieren, wenn du")
        say("mir von der Gemi das Rote")
        say("Monokel besorgst")
        say("Ohne das Rote Monokel wäre es viel zu gefährlich.")
        say_item_vnum(70030)
            find_npc_by_vnum(9003)
            chat("Gehe zur Gemi!")
            end
        end
            end
        end 
Hoffe es kann jemand helfen :)
08/30/2012 12:58 [SA]Invictus#6674
Quote:
quest ingamebann2 begin
-- Benötigt die neueste Version von Mijagos Questlib.
state start begin
when 40002.use with pc.is_gm() begin
say("Was möchtest du tun?")
local s = select('Bannen','Entbannen',"Nichts")
if s == 3 then return end
local ban,bantxt,bantxt2 = "BLOCK","bannen","gebannt"
if s == 2 then
ban,bantxt,bantxt2 = "OK","entbannen","entbannt"
end
say(col.blue('Spieler '..bantxt)); say('[ENTER]Gib den Spielernamen ein.[ENTER](ein Teil reicht auch)')
local inp = input(); inp = mysql_escape(inp)
if inp == "" or inp == pc.get_name() then
say(col.red('Ungültige Eingabe.[ENTER]Abbruch!'))
return
end
local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like \\"%[%\\"')
if q == "ERROR" then
say(col.red('Fehler beim Lesen der Daten oder es existiert niemand mit diesem Namen.'))
return
end
say('Wähle den User, der '..bantxt2..' werden soll:')
local wahl = q.name; table.insert(wahl,"-Abbruch-")
table.insert(wahl,1,6) -- 6 ist die Anzahl der Maximalen User auf einer Seite.
local auswahl = select2(wahl)
if wahl[auswahl] == "-Abbruch-" then return end
say('Den Spieler \\"'..q.name[auswahl]..'\\" wirklich '..bantxt..'?')
if select("Ja","Nein") == 2 then return end
mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
say('Der Spieler wurde gebannt.')
end
end
end


Quote:
quest ingamebann2 begin
-- Benötigt die neueste Version von Mijagos Questlib.
state start begin
when 9003.chat.with pc.is_gm() begin
say("Was möchtest du tun?")
local s = select('Bannen','Entbannen',"Nichts")
if s == 3 then return end
local ban,bantxt,bantxt2 = "BLOCK","bannen","gebannt"
if s == 2 then
ban,bantxt,bantxt2 = "OK","entbannen","entbannt"
end
say(col.blue('Spieler '..bantxt)); say('[ENTER]Gib den Spielernamen ein.[ENTER](ein Teil reicht auch)')
local inp = input(); inp = mysql_escape(inp)
if inp == "" or inp == pc.get_name() then
say(col.red('Ungültige Eingabe.[ENTER]Abbruch!'))
return
end
local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like \\"%[%\\"')
if q == "ERROR" then
say(col.red('Fehler beim Lesen der Daten oder es existiert niemand mit diesem Namen.'))
return
end
say('Wähle den User, der '..bantxt2..' werden soll:')
local wahl = q.name; table.insert(wahl,"-Abbruch-")
table.insert(wahl,1,6) -- 6 ist die Anzahl der Maximalen User auf einer Seite.
local auswahl = select2(wahl)
if wahl[auswahl] == "-Abbruch-" then return end
say('Den Spieler \\"'..q.name[auswahl]..'\\" wirklich '..bantxt..'?')
if select("Ja","Nein") == 2 then return end
mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
say('Der Spieler wurde gebannt.')
end
end
end
Quote:
quest mobplacer begin
state start begin
when login with pc.is_gm() begin
send_letter('Mobplacer')
end
when button or info begin
say('Willkommen im Mobplacer von Mijago[ENTER]Was möchtest du tun?')
local sel = select('Hinzufügen','Entfernen','Nichts')
if sel == 2 then
mobplacer.deletemob()
elseif sel == 1 then
mobplacer.mob_place()
end
send_letter('Mobplacer')
end
function mob_folder(mid)
if mid == nil then
mid = pc.get_map_index()
end
local d,e = io.open('locale/germany/map/index',"r"),{}
for line in d:lines() do
local c = split(line,' ')
if c[2] ~= nil then
e[tonumber(c[1])] = c[2]
end
end
return e[mid]
end
function mob_place(mid)
if mid == nil then
mid = pc.get_map_index()
end
say('Du möchtest ein Monster platzieren?[ENTER]Was soll platziert werden?')
say('Mapindex: '..mid..' | x: '..pc.get_local_x()..' | y: '..pc.get_local_y())
local was = select('Einzelner Mob','Gruppe','Random Gruppe','Nichts')
local art,nm = 'm','es Monster'
if was == 4 then return end
if was == 2 then
art,nm = 'g','e Gruppe'
elseif was == 3 then
art,nm = 'r','e Random Gruppe'
end
say('Welcher Mob soll platziert werden?')
say('Mapindex: '..mid..' | Ordner: '..mobplacer.mob_folder(mid)..' | x: '..pc.get_local_x()..' | y: '..pc.get_local_y())
local mob = input()
say('Sicher, dass dies'..nm..' hier gespawnt werden soll?')
if select("Ja","Nein") == 2 then return end
mobplacer.appendmob(art,mob)
say('Der Mob wurde hinzugefügt.')
end
function appendmob(art,id,mid)
local tab = ' '
if mid == nil then
mid = pc.get_map_index()
end
say('Gib die Zeit an, die zwischen dem Respawns liegen soll.[ENTER](In Sekunden)')
local respawn = input()
local appendline = art..tab..pc.get_local_x()..tab..pc.get_local_y(). .tab..'10 10 0 0 '..respawn..'s 100 1 '..id
local into = io.open('locale/germany/map/'..mobplacer.mob_folder(mid)..'/regen.txt','a+')
into:write('\\n'..appendline)
into:close()
end
function deletemob()
local tab = ' '
say('Was willst du entfernen?')
local was = select('Einzelner Mob','Gruppe','Random Gruppe','Nichts')
local art,nm = 'm','Monster'
if was == 4 then return end
if was == 2 then
art,nm = 'g','Gruppe'
elseif was == 3 then
art,nm = 'r','Random Gruppe'
end
say('Auswahl treffen:')
local det,sl,mobs,inc,order = io.open('locale/germany/map/'..mobplacer.mob_folder()..'/regen.txt'),{6},{},0,{}
for line in det:lines() do
local data = split(line,tab)
inc = inc+1
order[inc] = line
if data[1] == art then
if tonumber(data[2]) > pc.get_local_x()-10 and tonumber(data[2]) < pc.get_local_x()+10 and tonumber(data[3]) > pc.get_local_y()-10 and tonumber(data[3]) < pc.get_local_y()+10 then
table.insert(sl,nm..' '..data[11]..': x'..data[2]..' y'..data[3])
table.insert(mobs,{inc,data[11]})
end
end
end
det:close()
table.insert(sl,'Abbrechen')
local sel = select2(sl)
if sl[sel] == 'Abbrechen' then return end
table.remove(order,mobs[sel][1])
local writedata = io.open('locale/germany/map/'..mobplacer.mob_folder(mid)..'/regen.txt',"w")
local appendstr = ''
table.foreach(order,function(i,l) appendstr = appendstr..'\\n'..l end)
writedata:write(appendstr)
writedata:close()
say('Monster Entfernt.')
end
end
end

VPC kommt kein fehler kommt garnix....aber ingame wnn ich auf item klicke kommt nix wenn ich gemi anklicke koimmt nix und eine quest bekomme ich auch nicht wegen mobplacer


doch ein fehler bei Ingame aber der rest klappt irgendwie nicht
[Only registered and activated users can see links. Click Here To Register...]

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

€dit. Questlib von Mijago ist drinne...
08/30/2012 14:23 .RUVision#6675
Quote:
Originally Posted by [SA]Invictus View Post
VPC kommt kein fehler kommt garnix....aber ingame wnn ich auf item klicke kommt nix wenn ich gemi anklicke koimmt nix und eine quest bekomme ich auch nicht wegen mobplacer


doch ein fehler bei Ingame aber der rest klappt irgendwie nicht
[Only registered and activated users can see links. Click Here To Register...]

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

€dit. Questlib von Mijago ist drinne...
Hier musst du in item_proto den type auf 23 stellen, dann ingame /reload p
server neustarten und es sollte gehen.
Page 445 of 845 « First 345395435443444 445 446447455495545 Last »