[SERVICE] Die Questkontrolle

Page 599 of 845 « First 99499549589597598 599 600601609649699 Last »
09/09/2013 14:34 Modai#8971
Was ist an dieser Quest falsch ?
Es wird kein Error angezeigt aber es klappt Ingame nicht.
PHP Code:
quest grand_master begin 
    state start begin 
        function BuildPerfectMasterSkillList(job, group) 
        MASTER_SKILL_LEVEL = 20 
        GRAND_MASTER_SKILL_LEVEL = 30 

        local skill_list = special.active_skill_list[job+1][group] 
        local ret_vnum_list = {} 
        local ret_name_list = {} 

        -- test_chat(string.format("job=%d, group=%d", job, group)) 

        table.foreach(skill_list,  
        function(i, skill_vnum)  
        local skill_level = pc.get_skill_level(skill_vnum) 

        -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level)) 
        if skill_level >= MASTER_SKILL_LEVEL and skill_level < GRAND_MASTER_SKILL_LEVEL then 
            say_title("Regenbogenbuch:") 
            say("") 
            table.insert(ret_vnum_list, skill_vnum) 
            local name=locale.GM_SKILL_NAME_DICT[skill_vnum] 
            if name == nil then name=skill_vnum end 
            table.insert(ret_name_list, name) 
        end 
        end) 
        return {ret_vnum_list, ret_name_list} 


        --return {ret_vnum_list, ret_name_list} 
        end 
        when 30132.use begin 
            local count = pc.count_item(30132) 
            pc.setqf("regen_count", count) 
            if pc.get_skill_group() == 0 then 
                say_title("Regenbogenbuch:") 
                say("") 
                say("Du hast noch keine Fertigkeiten.") 
                say("Versuche es später erneut.") 
                return 
            end 
            local result = grand_master.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group()) 
            local vnum_list = result[1] 
            local name_list = result[2] 
            if table.getn(vnum_list) == 0 then 
                say_title("Regenbogenbuch:") 
                say("") 
                say("Du hast keine Meister-Fertigkeiten.") 
                return 
            end 
            local menu_list = {} 
            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end) 
            table.insert(menu_list, "Abbrechen")  
            local s=select_table(menu_list) 
            if table.getn(menu_list) == s then 
                return 
            end 
            local skill_name=name_list[s] 
            local skill_vnum=vnum_list[s] 
            say_title("Regenbogenbuch:") 
            say("") 
            say("Möchtest du "..skill_name.." wirklich auf G skillen?") 
            local wahl = select("Ja", "Nein") 
            if wahl == 1 then 
                if pc.count_item(30132) == pc.getqf("regen_count") then 
                    pc.set_skill_level(skill_vnum, 30) 
                    say_title("Regenbogenbuch:") 
                    say("") 
                    say(skill_name.." wurde auf Großmeister gesetzt.") 
                else 
                    say_title("Regenbogenbuch:") 
                    say("") 
                    say("Du wolltest also testen ob dieser Bug") 
                    say("bei uns funktioniert.") 
                    say("") 
                    say_reward("Da müssen wir dich leider enttäuschen.") 
                    say_reward("Versuche es bitte nie wieder. Danke für") 
                    say_reward("dein Verständnis, dein Avaris2-Team.") 
                end 
            elseif wahl == 2 then 
                return 
            end 
            pc.remove_item(30132, 1) 
        end 
    end 
end 
Ich möchte dass man seine Fertigkeiten mit Uriels Buch auf G machen kann...
09/09/2013 15:13 rakuz123456#8972
[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
quest Farmmap begin   
    state start begin   
        when login with pc.level >= 145 begin   
            set_state(Farmmap)   
        end   
    end   

    state Farmmap begin   
        when letter begin   
            send_letter("Farmmap)   
        end   
        
        when button or info begin   
            say_title("Reichsteleporter")
            say("")
            say("Die Farmmap: Hier Farmmen sie Pets und PvP-Ringe.")
            say("")
            say_reward("Wähle das Reich aus:")
            say("")
            local a = select("Farmmap")
            if a == 1 then
                say_title("Farmmap")
                say("")
                say("Du wirst teleportiert.")
                say("")
                wait()
                pc.warp(1024000, 1664000)
            elseif a == 4 then
                return
            end
        end
    end
end 
[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
quest infoitem begin
    state start begin
        when 70021.use begin 
            say_title("Was möchtest du wissen?:")
            local f = select("Level Fragen","Dropp-Fragen","Allgemeine Fragen","Client","Quests","HP & IS","Regeln","Team")
            if f == 1 then
                local d = select("Wo Level ich?")
                if d == 1 then
                    say("Du musst auf unserem Server NICHT Leveln")
                    return
                end
            end
            if f == 2 then
                local c = select("Wo droppe ich Pets ?","Wo droppe ich PvP Ringe ?")
                if c == 1 then
                    say("Auf der Farmmap.")
                    return
                end
                if c == 2 then
                    say("Auf der Farmmap")
                    return
                end
                if c == 3 then 
                    say("Aus Metinsteinen ab Level 30")
                    return
                end
                if c == 4 then
                    say("Roter Wald oder Metinmap")
                    return
                end
            end
            if f == 3 then
                local y = select("Laggs?","Kostüme ?","Steinstücke nach Kills ?")
                if y == 1 then
                    say("Bitte Stelle sicher das du keine anderen Programme die deine Breitband Verbinung auslasten nutzt,") 
                    say("sollte es trzd. Nicht aufhören wende dich an einen GM.")
                    return
                end
                if y == 2 then
                    say("Kostüme wir Besitzen das Orginale Kostüme System.")
                    return
                end
                if y == 3 then 
                    say("Wenn sie 50 Steinstücke gesammelt haben geben sie die Steinstücke")
                    say("Bei Einem NPC ab und sie bekommen Bonis.")
                    return
                end
            end
            if f == 4 then
                local x = select("Steuerung ?","Swichbot ?")
                if x == 1 then
                    say("Drücken sie F5 für den ingame Swichbot.")
                    say("Drücken sie F6 für den ingame Gui.")
                    say("Drücken sie F7 für den ingame teleporter.")
                    return
                end
                if x == 2 then
                    say("Ja wir besitzen einen Ingame Swichbot")
                    say("Denn du per F5 Öffnen kannst")
                    return
                end
                if x == 3 then 
                    say("Lade dir die neuste Version von .NET Framework herunter, starte deinen PC NEU & teste es nochmal.")
                    say("Falls nichts passiert Frag im Board.")
                    return
                end
            end
            if f == 5 then
                local z = select("Muss ich Quests machen?")
                if z == 1 then
                    say("Generell JA. Wir Haben Ein Super PvP Konzept")
                    return
                end
                if z == 2 then
                    say("Wende dich ans Team, Community oder Board.")
                    return
                end
            end
            if f == 6 then
                local xd = select("Wann kommen meine Coins?")
                if xd == 1 then
                    say("Dies kann in seltenen Fällen bis zu 24h dauern.")
                    say("Also gedulde dich bitte")
                    return
                end
                if xd == 2 then
                    say("Wende dich an den Serverleiter.")
                    return
                end
            end
            if f == 7 then
                local lod = select("Dauerkill erlaubt?","Hacks/Bots erlaubt?")
                if lod == 1 then
                    say("Ja, aber ungern gesehen , wird zu viel Arbeit dies zu ahnden.")
                    say("Jedoch NPC KILL verboten.")
                    return
                end
                if lod == 2 then
                    say("Jeder Hack und Bot oder ähnliches sind verboten ! Wird mit Permanent-Bann geahndet !")
                    return
                end
                if lod == 3 then
                    say("VERBOTEN ! Wird je nach Vergehen bis zu Permanent Bann geahndet.")
                    return
                end
                if lod == 4 then
                    say("Wer ander aufgrund seines Geschlechts / Herkunft ausschließt oder Beleidigt wird sofort Permanent gebannt !")
                    say("Wir sind eine Welt und leben alle unter dem selben Himmel.")
                    return
                end
            end
            if f == 8 then
                say("Das Team bilden momentan :")

                say_reward("ServerAdmin - [SA]xSpongi)
                say_reward("GameMaster - [GM]LiDL")
                say_reward("GameMaster - [GM]ShoXX")
                say("...")
                say("Mehr im Ingame Board.")
            end    
        end
    end
end 
09/09/2013 15:28 Yiv#8973
@rakuz123456:

Mein Problem besteht weiterhin...

Problem:

MfG
09/09/2013 15:38 .Inya#8974
1:
when letter begin
send_letter("Farmmap)
end

Fehlt ein "

2:
say_reward("ServerAdmin - [SA]xSpongi)

fehlt auch ein "

Verwende das hier zum kontollieren deiner Quests: [Only registered and activated users can see links. Click Here To Register...]
09/09/2013 15:57 rakuz123456#8975
PHP Code:
quest Info-Panel begin   
    state start begin   
        when login with pc.level >= 145 begin   
            set_state(Info-Panel)   
        end   
    end   

    state Info-Panel begin   
        when letter begin   
            send_letter("Info-Panel")   
        end   
        
        when button or info begin   
            say_title("Was möchtest du wissen?:")
            local f = select("Level Fragen","Dropp-Fragen","Allgemeine Fragen","Client","Quests","HP & IS","Regeln","Team")
            if f == 1 then
                local d = select("Wo Level ich?")
                if d == 1 then
                    say("Du musst auf unserem Server NICHT Leveln")
                    return
                end
            end
            if f == 2 then
                local c = select("Wo droppe ich Pets ?","Wo droppe ich PvP Ringe ?")
                if c == 1 then
                    say("Auf der Farmmap.")
                    return
                end
                if c == 2 then
                    say("Auf der Farmmap")
                    return
                end
                if c == 3 then 
                    say("Aus Metinsteinen ab Level 30")
                    return
                end
                if c == 4 then
                    say("Roter Wald oder Metinmap")
                    return
                end
            end
            if f == 3 then
                local y = select("Laggs?","Kostüme ?","Steinstücke nach Kills ?")
                if y == 1 then
                    say("Bitte Stelle sicher das du keine anderen Programme die deine Breitband Verbinung auslasten nutzt,") 
                    say("sollte es trzd. Nicht aufhören wende dich an einen GM.")
                    return
                end
                if y == 2 then
                    say("Kostüme wir Besitzen das Orginale Kostüme System.")
                    return
                end
                if y == 3 then 
                    say("Wenn sie 50 Steinstücke gesammelt haben geben sie die Steinstücke")
                    say("Bei Einem NPC ab und sie bekommen Bonis.")
                    return
                end
            end
            if f == 4 then
                local x = select("Steuerung ?","Swichbot ?")
                if x == 1 then
                    say("Drücken sie F5 für den ingame Swichbot.")
                    say("Drücken sie F6 für den ingame Gui.")
                    say("Drücken sie F7 für den ingame teleporter.")
                    return
                end
                if x == 2 then
                    say("Ja wir besitzen einen Ingame Swichbot")
                    say("Denn du per F5 Öffnen kannst")
                    return
                end
                if x == 3 then 
                    say("Lade dir die neuste Version von .NET Framework herunter, starte deinen PC NEU & teste es nochmal.")
                    say("Falls nichts passiert Frag im Board.")
                    return
                end
            end
            if f == 5 then
                local z = select("Muss ich Quests machen?")
                if z == 1 then
                    say("Generell JA. Wir Haben Ein Super PvP Konzept")
                    return
                end
                if z == 2 then
                    say("Wende dich ans Team, Community oder Board.")
                    return
                end
            end
            if f == 6 then
                local xd = select("Wann kommen meine Coins?")
                if xd == 1 then
                    say("Dies kann in seltenen Fällen bis zu 24h dauern.")
                    say("Also gedulde dich bitte")
                    return
                end
                if xd == 2 then
                    say("Wende dich an den Serverleiter.")
                    return
                end
            end
            if f == 7 then
                local lod = select("Dauerkill erlaubt?","Hacks/Bots erlaubt?")
                if lod == 1 then
                    say("Ja, aber ungern gesehen , wird zu viel Arbeit dies zu ahnden.")
                    say("Jedoch NPC KILL verboten.")
                    return
                end
                if lod == 2 then
                    say("Jeder Hack und Bot oder ähnliches sind verboten ! Wird mit Permanent-Bann geahndet !")
                    return
                end
                if lod == 3 then
                    say("VERBOTEN ! Wird je nach Vergehen bis zu Permanent Bann geahndet.")
                    return
                end
                if lod == 4 then
                    say("Wer ander aufgrund seines Geschlechts / Herkunft ausschließt oder Beleidigt wird sofort Permanent gebannt !")
                    say("Wir sind eine Welt und leben alle unter dem selben Himmel.")
                    return
                end
            end
            if f == 8 then
                say("Das Team bilden momentan :")

                say_reward("ServerAdmin - [SA]xSpongi")
                say_reward("GameMaster - [GM]LiDL")
                say_reward("GameMaster - [GM]ShoXX")
                say("...")
                say("Mehr im Ingame Board.")
            end    
        end
    end
end 
infoitem.quest:1:error occured on compile infoitem quest
09/09/2013 17:20 .LuckyStrike#8976
Quote:
Originally Posted by rakuz123456 View Post
PHP Code:
quest Info-Panel begin   
    state start begin   
        when login with pc.level >= 145 begin   
            set_state(Info-Panel)   
        end   
    end   

    state Info-Panel begin   
        when letter begin   
            send_letter("Info-Panel")   
        end   
        
        when button or info begin   
            say_title("Was möchtest du wissen?:")
            local f = select("Level Fragen","Dropp-Fragen","Allgemeine Fragen","Client","Quests","HP & IS","Regeln","Team")
            if f == 1 then
                local d = select("Wo Level ich?")
                if d == 1 then
                    say("Du musst auf unserem Server NICHT Leveln")
                    return
                end
            end
            if f == 2 then
                local c = select("Wo droppe ich Pets ?","Wo droppe ich PvP Ringe ?")
                if c == 1 then
                    say("Auf der Farmmap.")
                    return
                end
                if c == 2 then
                    say("Auf der Farmmap")
                    return
                end
                if c == 3 then 
                    say("Aus Metinsteinen ab Level 30")
                    return
                end
                if c == 4 then
                    say("Roter Wald oder Metinmap")
                    return
                end
            end
            if f == 3 then
                local y = select("Laggs?","Kostüme ?","Steinstücke nach Kills ?")
                if y == 1 then
                    say("Bitte Stelle sicher das du keine anderen Programme die deine Breitband Verbinung auslasten nutzt,") 
                    say("sollte es trzd. Nicht aufhören wende dich an einen GM.")
                    return
                end
                if y == 2 then
                    say("Kostüme wir Besitzen das Orginale Kostüme System.")
                    return
                end
                if y == 3 then 
                    say("Wenn sie 50 Steinstücke gesammelt haben geben sie die Steinstücke")
                    say("Bei Einem NPC ab und sie bekommen Bonis.")
                    return
                end
            end
            if f == 4 then
                local x = select("Steuerung ?","Swichbot ?")
                if x == 1 then
                    say("Drücken sie F5 für den ingame Swichbot.")
                    say("Drücken sie F6 für den ingame Gui.")
                    say("Drücken sie F7 für den ingame teleporter.")
                    return
                end
                if x == 2 then
                    say("Ja wir besitzen einen Ingame Swichbot")
                    say("Denn du per F5 Öffnen kannst")
                    return
                end
                if x == 3 then 
                    say("Lade dir die neuste Version von .NET Framework herunter, starte deinen PC NEU & teste es nochmal.")
                    say("Falls nichts passiert Frag im Board.")
                    return
                end
            end
            if f == 5 then
                local z = select("Muss ich Quests machen?")
                if z == 1 then
                    say("Generell JA. Wir Haben Ein Super PvP Konzept")
                    return
                end
                if z == 2 then
                    say("Wende dich ans Team, Community oder Board.")
                    return
                end
            end
            if f == 6 then
                local xd = select("Wann kommen meine Coins?")
                if xd == 1 then
                    say("Dies kann in seltenen Fällen bis zu 24h dauern.")
                    say("Also gedulde dich bitte")
                    return
                end
                if xd == 2 then
                    say("Wende dich an den Serverleiter.")
                    return
                end
            end
            if f == 7 then
                local lod = select("Dauerkill erlaubt?","Hacks/Bots erlaubt?")
                if lod == 1 then
                    say("Ja, aber ungern gesehen , wird zu viel Arbeit dies zu ahnden.")
                    say("Jedoch NPC KILL verboten.")
                    return
                end
                if lod == 2 then
                    say("Jeder Hack und Bot oder ähnliches sind verboten ! Wird mit Permanent-Bann geahndet !")
                    return
                end
                if lod == 3 then
                    say("VERBOTEN ! Wird je nach Vergehen bis zu Permanent Bann geahndet.")
                    return
                end
                if lod == 4 then
                    say("Wer ander aufgrund seines Geschlechts / Herkunft ausschließt oder Beleidigt wird sofort Permanent gebannt !")
                    say("Wir sind eine Welt und leben alle unter dem selben Himmel.")
                    return
                end
            end
            if f == 8 then
                say("Das Team bilden momentan :")

                say_reward("ServerAdmin - [SA]xSpongi")
                say_reward("GameMaster - [GM]LiDL")
                say_reward("GameMaster - [GM]ShoXX")
                say("...")
                say("Mehr im Ingame Board.")
            end    
        end
    end
end 
infoitem.quest:1:error occured on compile infoitem quest
Hier, bitteschön.

PHP Code:
quest InfoPanel begin   
    state start begin   
        when login with pc.get_level() >= 145 begin   
            set_state(InfoPanel)   
        end   
    end   
    state InfoPanel begin   
        when letter begin   
            send_letter("Info-Panel")   
        end   
        when button or info begin   
            say_title("Was möchtest du wissen?:")
            local f = select("Level Fragen","Dropp-Fragen","Allgemeine Fragen","Client","Quests","HP & IS","Regeln","Team")
            if f == 1 then
                local d = select("Wo Level ich?")
                if d == 1 then
                    say("Du musst auf unserem Server NICHT Leveln")
                    return
                end
            end
            if f == 2 then
                local c = select("Wo droppe ich Pets ?","Wo droppe ich PvP Ringe ?")
                if c == 1 then
                    say("Auf der Farmmap.")
                    return
                end
                if c == 2 then
                    say("Auf der Farmmap")
                    return
                end
                if c == 3 then 
                    say("Aus Metinsteinen ab Level 30")
                    return
                end
                if c == 4 then
                    say("Roter Wald oder Metinmap")
                    return
                end
            end
            if f == 3 then
                local y = select("Laggs?","Kostüme ?","Steinstücke nach Kills ?")
                if y == 1 then
                    say("Bitte Stelle sicher das du keine anderen Programme die deine Breitband Verbinung auslasten nutzt,") 
                    say("sollte es trzd. Nicht aufhören wende dich an einen GM.")
                    return
                end
                if y == 2 then
                    say("Kostüme wir Besitzen das Orginale Kostüme System.")
                    return
                end
                if y == 3 then 
                    say("Wenn sie 50 Steinstücke gesammelt haben geben sie die Steinstücke")
                    say("Bei Einem NPC ab und sie bekommen Bonis.")
                    return
                end
            end
            if f == 4 then
                local x = select("Steuerung ?","Swichbot ?")
                if x == 1 then
                    say("Drücken sie F5 für den ingame Swichbot.")
                    say("Drücken sie F6 für den ingame Gui.")
                    say("Drücken sie F7 für den ingame teleporter.")
                    return
                end
                if x == 2 then
                    say("Ja wir besitzen einen Ingame Swichbot")
                    say("Denn du per F5 Öffnen kannst")
                    return
                end
                if x == 3 then 
                    say("Lade dir die neuste Version von .NET Framework herunter, starte deinen PC NEU & teste es nochmal.")
                    say("Falls nichts passiert Frag im Board.")
                    return
                end
            end
            if f == 5 then
                local z = select("Muss ich Quests machen?")
                if z == 1 then
                    say("Generell JA. Wir Haben Ein Super PvP Konzept")
                    return
                end
                if z == 2 then
                    say("Wende dich ans Team, Community oder Board.")
                    return
                end
            end
            if f == 6 then
                local xd = select("Wann kommen meine Coins?")
                if xd == 1 then
                    say("Dies kann in seltenen Fällen bis zu 24h dauern.")
                    say("Also gedulde dich bitte")
                    return
                end
                if xd == 2 then
                    say("Wende dich an den Serverleiter.")
                    return
                end
            end
            if f == 7 then
                local lod = select("Dauerkill erlaubt?","Hacks/Bots erlaubt?")
                if lod == 1 then
                    say("Ja, aber ungern gesehen , wird zu viel Arbeit dies zu ahnden.")
                    say("Jedoch NPC KILL verboten.")
                    return
                end
                if lod == 2 then
                    say("Jeder Hack und Bot oder ähnliches sind verboten ! Wird mit Permanent-Bann geahndet !")
                    return
                end
                if lod == 3 then
                    say("VERBOTEN ! Wird je nach Vergehen bis zu Permanent Bann geahndet.")
                    return
                end
                if lod == 4 then
                    say("Wer ander aufgrund seines Geschlechts / Herkunft ausschließt oder Beleidigt wird sofort Permanent gebannt !")
                    say("Wir sind eine Welt und leben alle unter dem selben Himmel.")
                    return
                end
            end
            if f == 8 then
                say("Das Team bilden momentan :")
                say_reward("ServerAdmin - [SA]xSpongi")
                say_reward("GameMaster - [GM]LiDL")
                say_reward("GameMaster - [GM]ShoXX")
                say("...")
                say("Mehr im Ingame Board.")
            end    
        end
    end
end 
09/09/2013 17:34 Noa_#8977
die eckigen klammern-> [ ] werden aber nicht in der say funktion mit angezeigt, da sie für was anderes verwendet werden, wie [DELAY], [ENTER] usw. somit ist eine Teamliste via quest nicht besonders ideal
09/09/2013 18:20 Tiger121282#8978
Habe das ganze so gemacht, wenn man Ingame auf das Item Klickt fragt er auch:
Sollen dir 200 Coins gutgeschrieben werden?
Die Coins lassen sich später nichtmehr in ein Coins Item umwandeln.
Wenn ich auf ja gehe verschwindet das Item, er sagt aber nicht:
Du hast 200 Coins erhalten.
Und Coins bekommt man auch nicht, weiss vielleicht jemand wo der Fehler liegt? Ich komme da nicht weiter.

So sollte ich es machen:

Du musst die Funktion von mijago in die questlib.lua eintragen.
Dann noch in die quest_functions den Befehl mysql_query am ende eintragen.

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

PHP Code:
mysql_query = function(query)
    if not pre then
        local rt = io.open('CONFIG','r'):read('*all')
        pre,_= string.gsub(rt,'.+PLAYER_SQL:%s(%S+)%s(%S+)%s(%S+)%s(%S+).+','-h%1 -u%2 -p%3 -D%4')
    end
    math.randomseed(os.time())
    local fi,t,out = 'mysql_data_'..math.random(10^9)+math.random(2^4,2^10),{},{}
    os.execute('mysql '..pre..' --e='..string.format('%q',query)..' > '..fi) -- für MySQL51
    -- os.execute('mysql '..pre..' -e'..string.format('%q',query)..' > '..fi) -- für MySQL55
    for av in io.open(fi,'r'):lines() do table.insert(t,split(av,'\t')) end; os.remove(fi);
    for i = 2, table.getn(t) do table.foreach(t[i],function(a,b)
        out[i-1]               = out[i-1] or {}
        out[i-1][a]            = tonumber(b) or b or 'NULL'
        out[t[1][a]]           = out[t[1][a]] or {}
        out[t[1][a]][i-1]      = tonumber(b) or b or 'NULL'
    end) end
    return out
end 
Du musst auch darauf achten welche MYSQL version du besitzt.
MySQL55 oder MySQL51. Je nachdem auskommentieren in der Funktion.[/QUOTE]

Hier noch mal die Quest:

PHP Code:
## QUEST BY XEVOS FOR XEVONIA&PARANORMAL2 - COIN_ITEM QUEST
quest coin_item begin
    state start begin
            when 30013.use begin
                say_title("Coins Item")
                say("Sollen dir 200 Coins gutgeschrieben werden?")
                say("Die Coins lassen sich später nichtmehr in ein Coins Item umwandeln")
                local b = select("Ja","Nein")
                if b == 2 then
                    return
                end
                if pc.count_item(30013) == 0 then
                    syschat("Du hast keine Coins erhalten, da du einen Bug benutzen wolltest.")
                end
                local Coins_Def = 200
                local get_id = pc.get_account_id()
                pc.remove_item(30013, 1)
                mysql_query("UPDATE account.account SET coins = coins + "..Coins_Def.." WHERE id = "..get_id.."")
                syschat("Du hast 200 Coins erhalten.")
        end
    end
end 
09/09/2013 18:43 BΣQЦIΣƬ#8979
Hey Leute,

sitze jetzt seit ner stunde an der quest
weil ich einfach nich weis was der will...
es kommt immer except 'then' near 'with' ...
problem is das da ein then is ...
wäre nett wenn jemand helfen könnte :)

Hier die Quest:
Quote:
quest azrealtruhe begin
state start begin
when 9009.chat."TEST Abgabe" begin
say_title("Item Abgeben")
say("")
say("Möchtest die Truhe des Azreal gegen ")
say("eine Hwang-Rüstung eintauschen ?")
local s = select("Ja!","Nein!")
if s == 2 then
return
elseif s == 1 with item.get_count(50186) == 0 then
say_title("Item Abgeben")
say("")
say("Du haste keine Truhe des Azreal.")
say("Tut mir leid.")
else
pc.remove_item(50186, 1)
if pc.job == 0 then --Krieger
pc.give_item2(11971, 1)
elseif pc.job == 1 then --Ninja
pc.give_item2(11972, 1)
elseif pc.job == 2 then --Sura
pc.give_item2(11973, 1)
else --Schamane
pc.give_item2(11974, 1)
end

chat("Du hast deine Hwang Rüstung erhalten")
chat("Viel Spass auf Luria2 ©BeQuieT")
end
end
end
end
09/09/2013 18:50 .LuckyStrike#8980
Quote:
Originally Posted by BΣQЦIΣƬ View Post
Hey Leute,

sitze jetzt seit ner stunde an der quest
weil ich einfach nich weis was der will...
es kommt immer except 'then' near 'with' ...
problem is das da ein then is ...
wäre nett wenn jemand helfen könnte :)

Hier die Quest:

Hier ohne den Error:

PHP Code:
quest azrealtruhe begin
    state start begin
        when 9009.chat."TEST Abgabe" begin
            say_title("Item Abgeben")
            say("")
            say("Möchtest die Truhe des Azreal gegen ")
            say("eine Hwang-Rüstung eintauschen ?")
            local s = select("Ja!","Nein!")
            if s == 2 then
                return
            else
                if pc.count_item(50186) == 0 then
                    say_title("Item Abgeben")
                    say("")
                    say("Du haste keine Truhe des Azreal.")
                    say("Tut mir leid.")
                elseif pc.count_item(50186) >= 1 then
                    pc.remove_item(50186, 1)
                    if pc.get_job == 0 then     --Krieger
                        pc.give_item2(11971, 1)
                    elseif pc.get_job == 1 then    --Ninja
                        pc.give_item2(11972, 1)
                    elseif pc.get_job == 2 then    --Sura
                        pc.give_item2(11973, 1)
                    elseif pc.get_job == 3 then
                        pc.give_item2(11974, 1)
                    end
                end
            end
        end
    end
end 
09/09/2013 18:51 Fear *_*#8981
PHP Code:
quest azrealtruhe begin
    state start begin
        when 9009.chat."TEST Abgabe" begin
            say_title("Item Abgeben")
            say("")
            say("Möchtest die Truhe des Azreal gegen ")
            say("eine Hwang-Rüstung eintauschen ?")
            local s = select("Ja!","Nein!")
            if s == 2 then
                return
            elseif s == 1 and item.get_count(50186) == 0 then
                say_title("Item Abgeben")
                say("")
                say("Du haste keine Truhe des Azreal.")
                say("Tut mir leid.")
            else
                pc.remove_item(50186, 1)
                if pc.job == 0 then     --Krieger
                    pc.give_item2(11971, 1)
                elseif pc.job == 1 then    --Ninja
                    pc.give_item2(11972, 1)
                elseif pc.job == 2 then    --Sura
                    pc.give_item2(11973, 1)
                else     --Schamane
                    pc.give_item2(11974, 1)
                end
                chat("Du hast deine Hwang Rüstung erhalten")
                chat("Viel Spass auf Luria2 ©BeQuieT")
            end
        end
    end
end 
Bei einer If-Abfrage kannst du kein with machen sondern musst ein and nehmen.

Gruß

Fear
09/09/2013 19:48 BΣQЦIΣƬ#8982
Oke Danke Leute :)
09/09/2013 20:17 Tiger121282#8983
Keiner eine Idee??
09/10/2013 13:52 rakuz123456#8984
[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
quest gmonlinestate begin
    state start begin
        when login begin
            loop_timer("CheckGMActivity", 5)
            gmonlinestate.TeamMember()
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 1)
        end

        when logout begin
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 0)
        end
        
        when CheckGMActivity.timer begin
            RefreshTeamActivity(pc.get_name(), 0)
        end

        function TeamMember()
            local TeamMember = {    
                "[SGA]Nova",
                "[Tec]Reali",
                "[Ui]Rest"
                }
            --cmdchat("teamcount "..table.getn(TeamMember))
            local i = 1
            local TeamCount = table.getn(TeamMember) + 1
            while i < TeamCount do
                cmdchat("["..string.format("%s", TeamMember[i])..", "..game.get_event_flag("activity_"..TeamMember[i]).."]")
                i = i + 1
            end
        end
        
        function RefreshTeamActivity(Name, activity)
            local TeamMember = {
                {   "[SGA]Nova"},
                {   "[Tec]Reali"},
                {   "[Ui]Rest"}
            }
            local CheckMember = 0
            local TeamCount = table.getn(TeamMember)
            while TeamCount > CheckMember do
                CheckMember = CheckMember + 1
                if unpack(TeamMember[CheckMember]) == Name then
                    local event_flag = game.get_event_flag("activity_"..Name)
                    if event_flag ~= activity and activity == 1 then
                        game.set_event_flag("activity_"..Name, 1)
                        cmdchat("TeamActivity "..Name, 1)
                    elseif event_flag ~= activity and activity == 0 then
                        game.set_event_flag("activity_"..Name, 0)
                        cmdchat("TeamActivity "..Name, 0)
                    end
                end
            end
        end        
    end
end 
Lua Datei Habe ich auch in quest list eingetragen hilfe
09/10/2013 13:57 .Inya#8985
Quote:
Originally Posted by rakuz123456 View Post
[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
quest gmonlinestate begin
    state start begin
        when login begin
            loop_timer("CheckGMActivity", 5)
            gmonlinestate.TeamMember()
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 1)
        end

        when logout begin
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 0)
        end
        
        when CheckGMActivity.timer begin
            RefreshTeamActivity(pc.get_name(), 0)
        end

        function TeamMember()
            local TeamMember = {    
                "[SGA]Nova",
                "[Tec]Reali",
                "[Ui]Rest"
                }
            --cmdchat("teamcount "..table.getn(TeamMember))
            local i = 1
            local TeamCount = table.getn(TeamMember) + 1
            while i < TeamCount do
                cmdchat("["..string.format("%s", TeamMember[i])..", "..game.get_event_flag("activity_"..TeamMember[i]).."]")
                i = i + 1
            end
        end
        
        function RefreshTeamActivity(Name, activity)
            local TeamMember = {
                {   "[SGA]Nova"},
                {   "[Tec]Reali"},
                {   "[Ui]Rest"}
            }
            local CheckMember = 0
            local TeamCount = table.getn(TeamMember)
            while TeamCount > CheckMember do
                CheckMember = CheckMember + 1
                if TeamMember[CheckMember] == Name then
                    local event_flag = game.get_event_flag("activity_"..Name)
                    if event_flag ~= activity and activity == 1 then
                        game.set_event_flag("activity_"..Name, 1)
                        cmdchat("TeamActivity "..Name, 1)
                    elseif event_flag ~= activity and activity == 0 then
                        game.set_event_flag("activity_"..Name, 0)
                        cmdchat("TeamActivity "..Name, 0)
                    end
                end
            end
        end        
    end
end 
Lua Datei Habe ich auch in quest list eingetragen hilfe
PHP Code:
quest gmonlinestate begin
    state start begin
        when login begin
            loop_timer("CheckGMActivity", 5)
            gmonlinestate.TeamMember()
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 1)
        end

        when logout begin
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 0)
        end
        
        when CheckGMActivity.timer begin
            gmonlinestate.RefreshTeamActivity(pc.get_name(), 0)
        end

        function TeamMember()
            local TeamMember = {    
                "[SGA]Nova",
                "[Tec]Reali",
                "[Ui]Rest"
                }
            --cmdchat("teamcount "..table.getn(TeamMember))
            local i = 1
            local TeamCount = table.getn(TeamMember) + 1
            while i < TeamCount do
                cmdchat("["..string.format("%s", TeamMember[i])..", "..game.get_event_flag("activity_"..TeamMember[i]).."]")
                i = i + 1
            end
        end
        
        function RefreshTeamActivity(Name, activity)
            local TeamMember = {
                {   "[SGA]Nova"},
                {   "[Tec]Reali"},
                {   "[Ui]Rest"}
            }
            local CheckMember = 0
            local TeamCount = table.getn(TeamMember)
            while TeamCount > CheckMember do
                CheckMember = CheckMember + 1
                if TeamMember[CheckMember] == Name then
                    local event_flag = game.get_event_flag("activity_"..Name)
                    if event_flag ~= activity and activity == 1 then
                        game.set_event_flag("activity_"..Name, 1)
                        cmdchat("TeamActivity "..Name, 1)
                    elseif event_flag ~= activity and activity == 0 then
                        game.set_event_flag("activity_"..Name, 0)
                        cmdchat("TeamActivity "..Name, 0)
                    end
                end
            end
        end        
    end
end 
Und an deiner Stelle würde ich eher mit for schleifen arbeiten :D
Page 599 of 845 « First 99499549589597598 599 600601609649699 Last »