[SERVICE] Die Questkontrolle

Page 684 of 845 « First 184584634674682683 684 685686694734784 Last »
05/24/2014 12:26 makralovag#10246
Quote:
Originally Posted by makralovag View Post
hi all!

I do not know what could be problem.

qc good, ingame does nothing

help pls!
help pls :(
05/24/2014 14:37 Noa_#10247
Quote:
Originally Posted by makralovag View Post
help pls :(
PHP Code:
quest switch begin 
    state start begin 
        function bonus(id) 
            bonis = {
                [1]="Max TP",
                [2]="Max MP",
                [3]="VIT",
                [4]="INT",
                [5]="ERO ",
                [6]="ÜGY",
                [7]="Támadó sebesség",
                [8]="Mozgási sebesség",
                [9]="Varázs sebesség",
                [10]="TP regenerálódás",
                [11]="MP regenerálódás",
                [12]="Mérgezési esély",
                [13]="Ájulási esély",
                [14]="Lelassulás esély",
                [15]="Esély kritikus találatra",
                [16]="Esély átható találatra",
                [17]="Félemberek elleni ero",
                [18]="Állatok elleni ero",
                [19]="Ork elleni ero",
                [20]="Ezotéria elleni ero",
                [21]="Nemhalottak elleni ero ",
                [22]="Ördög elleni ero ",
                [23]="Veszteségek a TP-böl eltunnek",
                [24]="Veszteségek az MP-böl eltunnek",
                [25]="Esély az ellenség Mp-inek átvételére",
                [26]="Esély hogy az MP-t találatnál megtartsd",
                [27]="Esély a testi támadás kivédésére",
                [28]="Esély a nyilak elkerülésére",
                [29]="Kard védelem",
                [30]="Kétkezes védelem",
                [31]="Tor védekezés",
                [32]="Harang védelem",
                [33]="Legyezo védekezés",
                [34]="Nyíl ellenállás",
                [35]="Tuz ellenállás",
                [36]="Villám ellenállás",
                [37]="Mágia ellenállás",
                [38]="Szél ellenállás",
                [39]="Esély a támadás visszaverésére",
                [40]="Esély az átok visszaverésére",
                [41]="Méreg ellenállás",
                [42]="Esély MP visszaállítására",
                [43]="Esély EXP bónuszra",
                [44]="Esély dupla mennyiségu Yang eldobására",
                [45]="Esély dupla mennyiségu tárgy eldobására",
                [46]="Ital hatásnövekedés",
                [47]="Esély TP visszaállítására",
                [48]="Immunis az ájulás ellen",
                [49]="Immunis a lelassulás ellen",
                [50]="Immunis az elesésre",
                [52]="Íjjász hatótávolság",
                [53]="Támadó érték",
                [54]="Védekezés",
                [55]="Mágikus támadó érték",
                [56]="Mágikus védelem",
                [58]="Max. Kitartás",
                [59]="Harcosok elleni ero ",
                [60]="Nindzsák elleni ero ",
                [61]="Sura elleni ero ",
                [62]="Sámán elleni ero ",
                [63]="Szörny elleni ero ",
                [64]="Támadó érték",
                [65]="Védekezés",
                [66]="EXP",
                [67]="Tárgy ledobási esély",
                [68]="Yang eldobási esély",
                [71]="Készség károk",
                [72]="Átlagos károk",
                [73]="Készség károkkal szembeni ellenállás",
                [74]="Átlagos veszteség ellenállás",
                [76]="EXP bónusz",
                [77]="Tárgy zsákmányolási esély plusz",
                [78]="Védekezési esély harcos támadás ellen",
                [79]="Védekezési esély nindzsatámadás ellen",
                [80]="Védekezési esély Sura támadás ellen",
                [81]="Védekezési esély sámántámadás ellen",
            }
            return bonis[id]
        end 
        when 9006.take begin 
            local table2 = mysql_select("SELECT owner_id, count, vnum, socket0, socket1, socket2, socket3, socket4, socket5, attrtype0, attrvalue0, attrtype1, attrvalue1, attrtype2, attrvalue2, attrtype3, attrvalue3, attrtype4, attrvalue4, attrtype5, attrvalue5, attrtype6, attrvalue6, id FROM player.item WHERE owner_id="..item.get_id()..";") 
            for i = 0,6 do
                if tonumber(table2["attrtype"..i][1]) != 0 then
                    namex = switch.bonus(tonumber(table2["attrtype"..i][1])) or "Error"
                    say((i+1)..". opt: "..namex..": "..table2["attrtype"..i][1])
                end
            end
        end 
    end 
end 
05/25/2014 00:14 thespeedyy#10248
PHP Code:
quest gm_list begin 
    state start begin 
        function DoSomething()
            if gms==nil then
                gms = gms or {}
                local sel=mysql_query('select mName from common.gmlist')
                for _,value in next,sel do
                    table.insert(gm,value[1])
                    cmdchat('SetTeamOffline '..value[1])
                end
            else
                for i=1, table.getn(gms) do 
                    local name = gms[i]
                    if game.get_event_flag(name)==0 then
                        cmdchat('SetTeamOffline '..name) 
                    else
                        cmdchat('SetTeamOnline '..name)
                    end
                end 
            end
        end
        when login begin 
            gm_list.DoSomething()
            loop_timer("check_gm", 10) 
        end 
        when check_gm.timer begin 
            gm_list.DoSomething()
        end 
        when login with pc.is_gm() begin 
            local name = pc.get_name() 
            game.set_event_flag(name, 1) 
        end 
        when logout with pc.is_gm() begin 
            local name = pc.get_name() 
            game.set_event_flag(name, 0) 
        end 
    end 
end 
mein problem ist er ließt trotzdem die namen nicht.. :/
05/25/2014 04:45 .Mio#10249
Wäre jemand so lieb und würde hier mal rüberschauen, bekomme keinen Fehler beim reloaden der Quest dennoch...

-Werden keine Mobs gespawnt
-Nach dem Tod der Spinnenbaroness werde ich nicht nach 2 Minuten herausgeportet.
-Und die Bruthöhle bleibt weiterhin besetzt.

PHP Code:
quest sd3_bruthoehle begin
    state start begin
        when 20368.chat."In die Bruthöhle" with pc.get_level() > 49 begin
            say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
            if game.get_event_flag("sd3_frei") == 1 then
                say("Die Bruthöhle ist zur Zeit besetzt.")
                return
            end
            if not party.is_party() then
                say("Du kannst nur in einer Gruppe die")
                say("Bruthöhle betreten.")
                return
            end
            if not party.is_leader() then
                say("Nur der Gruppenleiter kann das")
                say("Portal zur Bruthöhle öffnen.")
                return
            end
            say("Möchtet ihr die Bruthöhle betreten?")
            if select("Ja","Nein") == 2 then return end
            d.new_jump_all(193, 878, 6148)
            game.set_event_flag("sd3_frei",1)
            server_timer("exit",60*20)
        end
        when login with pc.get_map_index() == 193 and party.is_party() begin
            d.regen_file("data/dungeon/sd3/regen.txt")
            d.regen_file("data/dungeon/sd3/eier.txt")
            d.regen_file("data/dungeon/sd3/boss.txt")
            syschat("Ihr habt 20 Minuten Zeit, um die Spinnenbaroness zu töten.")
        end
        when exit.server_timer begin
            if d.select(get_server_timer_arg()) then
                d.exit_all()
                server_timer("sd3_set_free",60*60)
            end
        end
        when 2094.kill with party.is_party() and pc.get_level() > 49 begin
            notice_all("Die Gruppe von "..pc.get_name().." hat die Spinnenbaroness besiegt!")
            timer("sd3_set_free", 120)
            d.kill_all()
            syschat("In 2 Minuten werdet ihr hinausteleportiert.")
        end
        when sd3_set_free.server_timer begin
            game.set_event_flag("sd3_frei",0)
            warp_all_to_village( pc.get_map_index() , 3 )
        end
    end
end 
05/25/2014 08:49 makralovag#10250
Quote:
Originally Posted by Noa_ View Post
PHP Code:
quest switch begin 
    state start begin 
        function bonus(id) 
            bonis = {
                [1]="Max TP",
                [2]="Max MP",
                [3]="VIT",
                [4]="INT",
                [5]="ERO ",
                [6]="ÜGY",
                [7]="Támadó sebesség",
                [8]="Mozgási sebesség",
                [9]="Varázs sebesség",
                [10]="TP regenerálódás",
                [11]="MP regenerálódás",
                [12]="Mérgezési esély",
                [13]="Ájulási esély",
                [14]="Lelassulás esély",
                [15]="Esély kritikus találatra",
                [16]="Esély átható találatra",
                [17]="Félemberek elleni ero",
                [18]="Állatok elleni ero",
                [19]="Ork elleni ero",
                [20]="Ezotéria elleni ero",
                [21]="Nemhalottak elleni ero ",
                [22]="Ördög elleni ero ",
                [23]="Veszteségek a TP-böl eltunnek",
                [24]="Veszteségek az MP-böl eltunnek",
                [25]="Esély az ellenség Mp-inek átvételére",
                [26]="Esély hogy az MP-t találatnál megtartsd",
                [27]="Esély a testi támadás kivédésére",
                [28]="Esély a nyilak elkerülésére",
                [29]="Kard védelem",
                [30]="Kétkezes védelem",
                [31]="Tor védekezés",
                [32]="Harang védelem",
                [33]="Legyezo védekezés",
                [34]="Nyíl ellenállás",
                [35]="Tuz ellenállás",
                [36]="Villám ellenállás",
                [37]="Mágia ellenállás",
                [38]="Szél ellenállás",
                [39]="Esély a támadás visszaverésére",
                [40]="Esély az átok visszaverésére",
                [41]="Méreg ellenállás",
                [42]="Esély MP visszaállítására",
                [43]="Esély EXP bónuszra",
                [44]="Esély dupla mennyiségu Yang eldobására",
                [45]="Esély dupla mennyiségu tárgy eldobására",
                [46]="Ital hatásnövekedés",
                [47]="Esély TP visszaállítására",
                [48]="Immunis az ájulás ellen",
                [49]="Immunis a lelassulás ellen",
                [50]="Immunis az elesésre",
                [52]="Íjjász hatótávolság",
                [53]="Támadó érték",
                [54]="Védekezés",
                [55]="Mágikus támadó érték",
                [56]="Mágikus védelem",
                [58]="Max. Kitartás",
                [59]="Harcosok elleni ero ",
                [60]="Nindzsák elleni ero ",
                [61]="Sura elleni ero ",
                [62]="Sámán elleni ero ",
                [63]="Szörny elleni ero ",
                [64]="Támadó érték",
                [65]="Védekezés",
                [66]="EXP",
                [67]="Tárgy ledobási esély",
                [68]="Yang eldobási esély",
                [71]="Készség károk",
                [72]="Átlagos károk",
                [73]="Készség károkkal szembeni ellenállás",
                [74]="Átlagos veszteség ellenállás",
                [76]="EXP bónusz",
                [77]="Tárgy zsákmányolási esély plusz",
                [78]="Védekezési esély harcos támadás ellen",
                [79]="Védekezési esély nindzsatámadás ellen",
                [80]="Védekezési esély Sura támadás ellen",
                [81]="Védekezési esély sámántámadás ellen",
            }
            return bonis[id]
        end 
        when 9006.take begin 
            local table2 = mysql_select("SELECT owner_id, count, vnum, socket0, socket1, socket2, socket3, socket4, socket5, attrtype0, attrvalue0, attrtype1, attrvalue1, attrtype2, attrvalue2, attrtype3, attrvalue3, attrtype4, attrvalue4, attrtype5, attrvalue5, attrtype6, attrvalue6, id FROM player.item WHERE owner_id="..item.get_id()..";") 
            for i = 0,6 do
                if tonumber(table2["attrtype"..i][1]) != 0 then
                    namex = switch.bonus(tonumber(table2["attrtype"..i][1])) or "Error"
                    say((i+1)..". opt: "..namex..": "..table2["attrtype"..i][1])
                end
            end
        end 
    end 
end 
not good :(

Quote:
SYSERR: May 25 08:40:15 :: RunState: LUA_ERROR: [string "switch"]:3: attempt to index field `?' (a nil value)
SYSERR: May 25 08:40:15 :: WriteRunningStateToSyserr: LUA_ERROR: quest switch.start click
05/26/2014 06:09 Shaojun#10251
Moin Zusammen

habe folgendes Problem ich habe vorhin 2 Reittiere eingebaut die jeder kennen müsste den rappen und den Kriegskeiler

Rappen Der liest nicht die Monster aus die Angriffswert da sind keine Probleme die gibt der mir
PHP Code:
quest Rappen90 begin   
    state start begin   
        when 71134.use begin 
            affect.remove_collect()           
            pc.mount_bonus(apply.ATT_BONUS_TO_MONSTER,20,4320)
            pc.mount_bonus(apply.ATT_GRADE_BONUS,200,4320)
            pc.mount(20119,10800)
            pc.remove_item(71134,1)  
        end  
    end   
end 
Gleiche Problem auch bei den Kriegskeiler

PHP Code:
quest Kriegskeiler begin   
    state start begin   
        when 71125.use begin 
            affect.remove_collect()           
            pc.mount(20115,28800)
            pc.mount_bonus(apply.ATT_BONUS_TO_MONSTER,20,4320)
            pc.remove_item(71125,1)  
        end  
    end   
end 
ich mache nicht mehr schlag schaden mit den obwohl Monster drin eingetragen ist ich bin mit mein Rat am ende ich versteh nicht wieso Monster nicht klappt aber dafür Angriffswert bzw. ich hab nur mit den Mob boni das Problem ._.
05/26/2014 12:27 R4G3N#10252
Quote:
Originally Posted by Shaojun View Post
Moin Zusammen

habe folgendes Problem ich habe vorhin 2 Reittiere eingebaut die jeder kennen müsste den rappen und den Kriegskeiler

Rappen Der liest nicht die Monster aus die Angriffswert da sind keine Probleme die gibt der mir
PHP Code:
quest Rappen90 begin   
    state start begin   
        when 71134.use begin 
            affect.remove_collect()           
            pc.mount_bonus(apply.ATT_BONUS_TO_MONSTER,20,4320)
            pc.mount_bonus(apply.ATT_GRADE_BONUS,200,4320)
            pc.mount(20119,10800)
            pc.remove_item(71134,1)  
        end  
    end   
end 
Gleiche Problem auch bei den Kriegskeiler

PHP Code:
quest Kriegskeiler begin   
    state start begin   
        when 71125.use begin 
            affect.remove_collect()           
            pc.mount(20115,28800)
            pc.mount_bonus(apply.ATT_BONUS_TO_MONSTER,20,4320)
            pc.remove_item(71125,1)  
        end  
    end   
end 
ich mache nicht mehr schlag schaden mit den obwohl Monster drin eingetragen ist ich bin mit mein Rat am ende ich versteh nicht wieso Monster nicht klappt aber dafür Angriffswert bzw. ich hab nur mit den Mob boni das Problem ._.

Habs dir jz mal beim Rappen Editiert einfach so beim anderen übernehmen

PHP Code:
quest Rappen90 begin   
    state start begin   
        when 71134.use begin 
            affect.remove_collect()           
                            affect.add_collect(apply.ATT_GRADE_BONUS,200 60*60*8)
                affect.add_collect(apply.ATT_BONUS_TO_MONSTER 20, 60*60*8)
            pc.mount(20119,10800)
            pc.remove_item(71134,1)  
        end  
    end   
end 
05/26/2014 22:53 Noa_#10253
Quote:
Originally Posted by makralovag View Post
not good :(
liegt eventuell an der Selektierung der Query, ist kein großer Fehler, nur kann ich gerade nicht testen.

Quote:
Originally Posted by Shaojun View Post
Moin Zusammen

habe folgendes Problem ich habe vorhin 2 Reittiere eingebaut die jeder kennen müsste den rappen und den Kriegskeiler

Rappen Der liest nicht die Monster aus die Angriffswert da sind keine Probleme die gibt der mir
PHP Code:
quest Rappen90 begin   
    state start begin   
        when 71134.use begin 
            affect.remove_collect()           
            pc.mount_bonus(apply.ATT_BONUS_TO_MONSTER,20,4320)
            pc.mount_bonus(apply.ATT_GRADE_BONUS,200,4320)
            pc.mount(20119,10800)
            pc.remove_item(71134,1)  
        end  
    end   
end 
Gleiche Problem auch bei den Kriegskeiler

PHP Code:
quest Kriegskeiler begin   
    state start begin   
        when 71125.use begin 
            affect.remove_collect()           
            pc.mount(20115,28800)
            pc.mount_bonus(apply.ATT_BONUS_TO_MONSTER,20,4320)
            pc.remove_item(71125,1)  
        end  
    end   
end 
ich mache nicht mehr schlag schaden mit den obwohl Monster drin eingetragen ist ich bin mit mein Rat am ende ich versteh nicht wieso Monster nicht klappt aber dafür Angriffswert bzw. ich hab nur mit den Mob boni das Problem ._.
pc.mount_bonus hat auch keine 3 attribute, nur id und menge, du bekommst die bonis nur wenn du auf den drauf sitzt
05/27/2014 14:40 www.Alesta2.de | Bizeps#10254
Kann mir jemand bei der Quest helfen ? ....

du killst z.b ne bestimmte anzahl an metins sagen wir mal 300x und nach einem teleport oder kick watever wird der count resetet sprich du musst wd 500x töten und das nach jedem teleport kick watever..

PHP Code:
quest HMR begin
    state start begin
        when login with pc.level >= 35 begin
            set_state(information)
        end
    end

    state information begin
        when letter begin
            send_letter("Das Ring der Freude")
        end

        when info or button begin
            say_title("Ring der Freude")
            say("Hey "..pc.get_name()..", ")
            say("Du brauchst ein Ring der Freude?")
            say("erledige fuer mich 500 Metin der Eifersucht !")
            say_reward("Toete 500 Metin der Eifersucht Belohnung : ")
            say_reward("Ring der Freude.")
            say("")
            pc.setqf("state", 500)
            q.set_counter("Metin der Eifersucht", 500)
        end

        when 8007.kill begin
            local count = pc.getqf("state") - 1
            if count <= 500 then
                pc.setqf("state", count)
                q.set_counter("Metin der Eifersucht", count)
            end
            if count == 0 then
                say_title("Der Ring der Freude")
                say("Gut gemacht.")
                say("Hier ist deine Belohnung.")
                say_reward("Ring der Freude und 10KK Yang.")
                pc.change_money(10000000)
                pc.give_item2(930099, 1)
                clear_letter()
                set_state(__COMPLETE__)

            end
        end
    end

    state __COMPLETE__ begin
    end
end 
05/27/2014 16:45 .Delta#10255
nach dem Annehmen der Quest und setzen der Questflag den state wechseln, oder entsprechend abfangen, damit die qf nur einmalig gesetzt wird.
z.B. so
PHP Code:
quest HMR begin
    state start begin
        when login with pc.level >= 35 begin
            set_state(information)
        end
    end

    state information begin
        when letter begin
            send_letter("Das Ring der Freude")
        end

        when info or button begin
            say_title("Ring der Freude")
            say("Hey "..pc.get_name()..", ")
            say("Du brauchst ein Ring der Freude?")
            say("erledige fuer mich 500 Metin der Eifersucht !")
            say_reward("Toete 500 Metin der Eifersucht Belohnung : ")
            say_reward("Ring der Freude.")
            say("")
            pc.setqf("state", 500)
            q.set_counter("Metin der Eifersucht", 500)
            set_state(killen)
        end
    end
    state killen begin
        when letter begin
            send_letter("Das Ring der Freude")
        end

        when info or button begin
            say_title("Ring der Freude")
            say("Hey "..pc.get_name()..", ")
            say("Du brauchst ein Ring der Freude?")
            say("erledige fuer mich 500 Metin der Eifersucht !")
            say_reward("Toete 500 Metin der Eifersucht Belohnung : ")
            say_reward("Ring der Freude.")
            say("")
            set_state(killen)
        end
        when 8007.kill begin
            local count = pc.getqf("state") - 1
            if count <= 500 then
                pc.setqf("state", count)
                q.set_counter("Metin der Eifersucht", count)
            end
            if count == 0 then
                say_title("Der Ring der Freude")
                say("Gut gemacht.")
                say("Hier ist deine Belohnung.")
                say_reward("Ring der Freude und 10KK Yang.")
                pc.change_money(10000000)
                pc.give_item2(930099, 1)
                clear_letter()
                set_state(__COMPLETE__)
            end
        end
    end

    state __COMPLETE__ begin
    end
end 
05/27/2014 20:24 PlayaStylee#10256
Hallo in denn Quest villt ich das
Tanaka event
Ganze Lotterie event
Ganze Icecream event
Ganze Whiteday event
Ganze Kindertag event
Land der toten Die map raus nehmen
Handels Map
Farm map
Event Map

Bitte die in der quest enfernen hab versucht aber irgenwie schaf ich das nicht hoffenlich könnt ihr mir helfen

PHP Code:
[SPOILER]quest gm_item begin
state start begin
    when 70021.chat. "Mapindex" begin
    say("")
    say("Dein Mapindex: "..pc.get_map_index().."")
    say("Kordinaten: "..pc.get_local_x().." "..pc.get_local_y().."")
    say("")
    end
    function text()
        say("Wie viel Sekunden soll sie anhalten?")
        say("5 Minuten = 300 Sekunden")
        say("10 Minuten = 600 Sekunden")
        say("30 Minuten = 1800 Sekunden")
        say("1 Stunde = 3600 Sekunden")
        say("24 Stunde = 86400 Sekunden")
        say("7 tage = 604800 Sekunden")
    end

    function seiteeins()
    say_title("Folgende Bonis kannst dir setzen (Seite 1)")
    local i = select("Verteidigung +", "Abwehr gegen %", "Stark gegen %", "Bewegungsgeschwindigkeit+", "Angriffgeschwindigkeit+", "Schadenserhöhung %", "Schadensverminderung.. %", "Nächste Seite", "Schließen")
            if 1 == i then --Verteidigung
                say_title("Verteidigung")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Verteidigung")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.DEF_GRADE_BONUS,wert,zeit)
                chat("Du hast dir "..wert.."+ Verteidigung gegeben für "..zeit.." Sekunden.")
            end
            if 2 == i then --Abwehr gegen
                local s = select("Abwehr gegen Ohnmacht", "Abwehr gegen Verlangsamen", "Abwehr gegen Stürzen", "alle Rassen", "Magiewiederstand", "Schließen")
                if 1 == s then
                say_title("Abwehr gegen Ohnmacht")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.IMMUNE_STUN,100,zeit)
                chat("Du hast dir Abwehr gegen Ohnmacht gegeben für "..zeit.." Sekunden.")
                elseif 2 == s then
                say_title("Abwehr gegen Verlangsamen")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.IMMUNE_SLOW,100,zeit)
                chat("Du hast dir Abwehr gegen Verlangsamen gegeben für "..zeit.." Sekunden.")
                elseif 3 == s then
                say_title("Abwehr gegen Stürzen")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.IMMUNE_FALL,100,zeit)
                chat("Du hast dir Abwehr gegen Stürzen gegeben für "..zeit.." Sekunden.")
                
                elseif 4 == s then
                say_title("Abwehr gegen alle Rassen")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Abwehr gegen alle Rassen")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect_point(POINT_RESIST_WARRIOR,wert,zeit)
                affect.add_collect_point(POINT_RESIST_ASSASSIN,wert,zeit)
                affect.add_collect_point(POINT_RESIST_SURA,wert,zeit)
                affect.add_collect_point(POINT_RESIST_SHAMAN,wert,zeit)
                chat("Du hast dir "..wert.."% Abwehr gegen Krieger,Ninja,Sura,Schami gegeben für "..zeit.." Sekunden.")
                elseif 5 == s then
                say_title("Magiewiederstand")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Magiewiederstand")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect_point(POINT_RESIST_MAGIC,wert,zeit)
                chat("Du hast dir "..wert.."% Magiewiederstand gegeben für "..zeit.." Sekunden.")
                end
                
            end
            if 3 == i then --Stark gegen %
            say("Welchen Stark gg Boni?")
            local s = select("Untote", "Teufel", "Monster", "Halbmenschen", "alle Rassen", "Schließen")
                if 1 == s then
                    say_title("Stark gegen Untote")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Untote")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    affect.add_collect(apply.ATTBONUS_UNDEAD,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gg Untote gegeben für "..zeit.." Sekunden.")
                elseif 2 == s then
                    say_title("Stark gegen Teufel")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Teufel")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    affect.add_collect(apply.ATTBONUS_DEVIL,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gg Teufel gegeben für "..zeit.." Sekunden.")
                elseif 3 == s then
                    say_title("Stark gegen Monster")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Monster")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    --affect.add_collect(apply.ATT_BONUS_TO_MONSTER,wert,zeit)
                    affect.add_collect_point(POINT_ATTBONUS_MONSTER,wert, zeit)
                    chat("Du hast dir "..wert.."% Stark gg Monster gegeben für "..zeit.." Sekunden.")
                elseif 4 == s then
                    say_title("Stark gegen Halbmenschen")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Halbmenschen")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    affect.add_collect(apply.ATTBONUS_HUMAN,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gg Halbmenschen gegeben für "..zeit.." Sekunden.")
                elseif 5 == s then
                    say_title("Stark gegen alle Rassen")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen alle Rassen")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0    
                    affect.add_collect(apply.ATTBONUS_WARRIOR,wert,zeit)
                    affect.add_collect(apply.ATTBONUS_ASSASSIN,wert,zeit)
                    affect.add_collect(apply.ATTBONUS_SURA,wert,zeit)
                    affect.add_collect(apply.ATTBONUS_SHAMAN,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gegen Krieger,Ninja,Sura,Schami gegeben für "..zeit.." Sekunden.")
                end
            end
            if 4 == i then --Bewegungsgeschwindigkeit
                say_title("Bewegungsgeschwindigkeit")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Bewegungsgeschwindigkeit")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.MOV_SPEED, wert, zeit)
                chat("Du hast dir "..wert.."+ Bewegungsgeschwindigkeit gegeben für "..zeit.." Sekunden.")
            end
            if 5 == i then --Angriffgeschwindigkeit
                say_title("Angriffgeschwindigkeit")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Angriffgeschwindigkeit")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.ATT_SPEED, wert, zeit)
                chat("Du hast dir "..wert.."+ Angriffsgeschwindigkeit gegeben für "..zeit.." Sekunden.")
            end
            if 6 == i then --Schadenserhöhung
                say_title("Schadenserhöhung")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Schadenserhöhung")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect_point(POINT_ATT_BONUS,wert,zeit)
                chat("Du hast dir "..wert.."% Schadenserhöhung gegeben für "..zeit.." Sekunden.")
            end
            if 7 == i then --Schadensreduzierung
                say_title("Schadensverminderung")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Schadensverminderung (1,2 hand deff, dolch, pfeil und Magie")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.RESIST_SWORD, wert, zeit)
                affect.add_collect(apply.RESIST_TWOHAND, wert, zeit)
                affect.add_collect(apply.RESIST_DAGGER, wert, zeit)
                affect.add_collect(apply.RESIST_BELL, wert, zeit)
                affect.add_collect(apply.RESIST_FAN, wert, zeit)
                affect.add_collect(apply.RESIST_MAGIC, wert, zeit)
                chat("Du hast dir "..wert.."% Schadensverminderung gegeben für "..zeit.." Sekunden.")
            end
            if 8 == i then --Nächste Seite
            gm_item.seitezwei()
            end
    end
    
    function seitezwei()
        say_title("Folgende Bonis kannst dir setzen (Seite 2)")
        local i = select("TP +", "Angriffswert +", "Giftreduzierung %", "TP Regeneration %", "Zaubergeschwindigkeit +", "Chance Nah-angriff abzublocken %", "Zurück", "Alle Bonis Löschen", "Schließen")
        if 1== i then --TP
            say_title("TP")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("TP")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect_point(POINT_MAX_HP, wert, zeit)
            affect.add_collect_point(POINT_HP, wert, zeit)
            chat("Du hast dir "..wert.."+ TP gegeben für "..zeit.." Sekunden.")
        end
        if 2 == i then --Angriffswert
            say_title("Angriffswert")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Angriffswert")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect(apply.ATT_GRADE_BONUS, wert, zeit)
            chat("Du hast dir "..wert.."+ Angriffswert gegeben für "..zeit.." Sekunden.")
        end
        if 3 == i then --Giftreduzierung
            say_title("Giftreduzierung")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Giftreduzierung")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect_point(POINT_POISON_REDUCE,wert,zeit)
            chat("Du hast dir "..wert.."% Giftreduzierung gegeben für "..zeit.." Sekunden.")
            end
        if 4 == i then --TP Regeneration
            say_title("TP Regeneration")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("TP Regeneration")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect_point(POINT_HP_REGEN, wert, zeit)
            chat("Du hast dir "..wert.."% TP Regeneration gegeben für "..zeit.." Sekunden.")
            end
        if 5 == i then --Zaubergeschwindigkeit
            say_title("Zaubergeschwindigkeit")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Zaubergeschwindigkeit")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            --affect.add_collect(apply.CAST_SPEED,wert,Zeit)
            chat("Du hast dir "..wert.."+ Zaubergeschwindigkeit % gegeben für "..zeit.." Sekunden.")
            affect.add_collect_point(POINT_CASTING_SPEED, wert, zeit)
        end    
            
        if 6 == i then --
            say_title("Chance Nah-angriff abzublocken")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Chance Nah-angriff abzublocken")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            chat("Du hast dir "..wert.."+ Chance Nah-angriff abzublocken % gegeben für "..zeit.." Sekunden.")
            affect.add_collect_point(POINT_BLOCK , wert, zeit)
        end
        if 7 == i then --Nächste Seite
            gm_item.seiteeins()
    elseif 8 == i then
                affect.remove_all_collect()
                say("Alle Bonis wurden gelöscht.")
        end
    end
    
    function tanakas(a,b)
        local anzahl = a
        i = 1
        while i  <= anzahl do
        mob.spawn(5005,130,130,1)
        i = i + 1
        end
        local anzahl1 = b
        o = 0
        while o  <= anzahl1 do
        mob.spawn(5004,130,130,1)
        o = o + 1
        end
        game.set_event_flag("50tanaka",1)
        game.set_event_flag("50tanaka_anzahl",b)
        notice_all("Es wurde das Tanaka Event gestartet")
        notice_all("Der/Die Spieler/in die das Ohr dropppen, und auf das Ohr klicken bekommen eine Belohnung.")
        notice_all("Um das an Event teilzunehmen geht zu "..mob_name(9004).." in Map1")
        notice_all("Dort findet ihr ingesammt "..b.." echte Tanakas")
    end
    
    function skillsett(a,b,c,d)
        if a == 99999999999 then
        command("setsk 124 50")
        command("setsk 131 50")
        command("setsk 121 50")
        command("setsk 129 50")
        command("setsk 126 50")
        command("setsk 127 50")
        command("setsk 128 50")
        command("setsk 137 59") 
        command("setsk 138 59") 
        command("setsk 139 59") 
        command("setsk 140 59") 
        command("setsk 125 59") 
        command("setsk 130 59")
        say("Bergbau P")
        say("Pferde Rufen P")
        say("Führung P")
        say("Verwandeln P")
        say("Rot sprachen P")
        say("Gelb sprachen P")
        say("Pferdeskills P")
        say("Reiten P")
        return
        end
        pc.set_skill_group(""..d.."")
        i = a
        while i  <= b do
        pc.set_skill_level(""..i.."", ""..c.."")
        i = i + 1
        end
        command("setsk "..a.." "..c.."")
    end
    function tanakaevent()
        if pc.get_map_index() == 190 then
            say("Diese Option spawnt Tanaka Piraten")
            say("Und die richtigen Droppen das Ohr!")
            say("")
            if game.get_event_flag("50tanaka_back") == 0 then
                say_reward("Zurück in dorf port ist deaktiviert.")
            else
                say_reward("Zurück in dorf port ist aktiviert.")
            end
            say("")
            say("Willst du das Tanaka Event starten?")
            local m =select("Ja", "Nein", "Beenden", "Zurück in dorf port an/aus")
                if 1==m then
                    say_reward("Wie viele Sollen gespawnt werden?")
                    say_reward("#Zahl ist die anzahl vom echten Tanaka")
                    local o =select("50 #1", "100 #2", "150 #3","Eigene angabe")
                    if 1==o then    gm_item.tanakas(50,1)
                    elseif 2 == o then    gm_item.tanakas(100,2)
                    elseif 3 == o then    gm_item.tanakas(150,3)
                    elseif 4 == o then
                    say("Wie viele UNECHTE Tanakas willst du Spawnen lassen?")
                    local a = tonumber(input("0")) or 0
                    say("Wie viele ECHTE Tanakas willst du Spawnen lassen?")
                    local b = tonumber(input("0")) or 0
                    gm_item.tanakas(a,b)
                end
                elseif 2 == m then
                    say("50 Tanaka Event wird nicht gestartet!")
                elseif 3 == m then
                    game.set_event_flag("50tanaka",0)
                    say("50 Tanaka Event wurde beendet.")
                    warp_all_to_village( pc.get_map_index() , 5)
                elseif 4 == m then
                    if game.get_event_flag("50tanaka_back") == 0 then
                    say("50 Tanaka event, zuückport ist aktiviert.")
                    game.set_event_flag("50tanaka_back",1)
                else
                    say("50 Tanaka event, zuückport ist deaktiviert.")
                    game.set_event_flag("50tanaka_back",0)
                    end
                end
        else 
            say("Du musst auf der Eventmap Sein.")
        end
    end
    
    function weihnachtsevent()
        say_title("Was genau möchtest du am Weihnachtsevent starten?")        
            local f = select ("Weihnachtsbaum", "Schnee", "Weihnachtsmusik", "Sockendrop", "Weihnachtsevent starten (Alles)", "Weihnachtsevent stoppen (Alles)", "Abbrechen")
            if f == 1 then        
                local g = select ("Weihnachtsbaum aufstellen" , "Weihnachtsbaum wegräumen", "Abbrechen")
                if g == 1 then
                    command ("e xmas_tree 1")
                    say("Der Weihnachtsbaum steht!")
                elseif g == 2 then
                        command ("e xmas_tree 0")
                        say("Der Weihnachtsbaum ist weg!")
                end
            elseif f == 2 then
                local h = select ("Schnee an" , "Schnee aus", "Abbrechen")
                if h == 1 then
                    command("e xmas_snow 1")
                elseif h == 2 then
                    command ("e xmas_snow 0")
                end
            elseif f == 3 then
                    local i = select ("Weihnachts-Musik abspielen", "Musik stoppen", "Abbrechen")
                    if i == 1 then
                        command("e xmas_song 1")
                    elseif i == 2 then
                        command("e xmas_song 0")
                    end
            elseif f == 4 then
                    say("Sockendrop wird noch eingerichtet")
            elseif f == 5 then
                    say("Willst du wirklich alles aktivieren?")
                    say("Also Nachtmodus, den Weihnachtsbaum,")
                    say("Schnee und die Weihnachtsmusik?")
                    say("")
                    local g_sub = select ("Ja", "Nein")
                    if g_sub == 1 then
                        command("e xmas_tree 1")
                        command("e xmas_song 1")
                        command("e xmas_boom 1")
                        command("e xmas_snow 1")
                        say("Alles aktiviert!")
                        end
            elseif f == 6 then
                    say("Willst du wirklich alles deaktivieren?")
                    say("Also Nachtmodus, den Weihnachtsbaum,")
                    say("Schnee und die Weihnachtsmusik?")
                    say("")
                    local g_desub = select ("Ja", "Nein")
                    if g_desub == 1 then
                        command("e xmas_tree 0")
                        command("e xmas_song 0")
                        command("e xmas_boom 0")
                        command("e xmas_snow 0")
                        say("Alles deaktiviert!")
            end
            else
            return
        end
    end
        function landrates()
        say_title("Landrates")
        say("")
        say_reward("Wähle das gewünschte Reich")
        local e = select(locale.empire_names[1], locale.empire_names[2], locale.empire_names[3], locale.empire_names[0], "Standart setzen alle Reiche","Wochenende", locale.cancel)
        if 5 == e then
        command("priv_empire 0 1:item_drop 30 24")
        command("priv_empire 0 2:gold_drop 60 24")
        command("priv_empire 0 3:gold10_drop 5 24")
        command("priv_empire 0 4:exp 150 24")
        --notice_all("<Ankündigung> Die Droppchance von Gegenständen ist gesetzt 10%")
        --notice_all("<Ankündigung> Die Droppchance von Yang ist gesetzt 230%")
        --notice_all("<Ankündigung> Die Droppchance von Yangbomben ist gesetzt 10%")
        --notice_all("<Ankündigung> Die Droppchance von EXP Erfahrungen ist gesetzt 320%")
        return
        elseif 6 == e then
        command("priv_empire 0 1:item_drop 60 24")
        command("priv_empire 0 2:gold_drop 120 24")
        command("priv_empire 0 3:gold10_drop 30 24")
        command("priv_empire 0 4:exp 300 24")
        --notice_all("<Ankündigung> Die Droppchance von Gegenständen ist gesetzt 20%")
        --notice_all("<Ankündigung> Die Droppchance von Yang ist gesetzt 40%")
        --notice_all("<Ankündigung> Die Droppchance von Yangbomben ist gesetzt 30%")
        --notice_all("<Ankündigung> Die Droppchance von EXP Erfahrungen ist gesetzt 40%")
        return
        elseif 7 == e then
        return
        elseif 4 == e then
            e = 0
        end
        say_title("Landrates")
        say(__get_empire_priv_string(e))
        say("")
        say("Wähle den zu verteilenden Bonus")
        local t = select(locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct, locale.cancel)
        if 5 == t then
        return
        end
        say_title("Landrates")
        local title_list = {locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct}
        say(string.format("%s : %s ", locale.empire_names[e], title_list[t]))
        say("")
        say("Wähle hoch sollen die Rates werden?")
        local g={0, 5, 10, 15, 20, 25, 30, 50}
        local p = select(g[1]..'%%', g[2]..'%%', g[3]..'%%', g[4]..'%%', g[5]..'%%', g[6]..'%%', g[7]..'%%', g[8]..'%%', 'Abbrechen')
        if p == 7 then
        return
        end
        say_title("Landrates")
        say(string.format("%s : %s %d%%", locale.empire_names[e], title_list[t], g[p]))
        say("")
        say("Wie lang sollen die Rates anhalten?")
        local v = 0
        local h = select('6 hours', '12 hours', '24 hours', 'Andere Zeit', 'Abbrechen')
        if 5 == h then
        return
        elseif 4 == h then
        say_title("Landrates")
        say(string.format("%s : %s %d%%", locale.empire_names[e], title_list[t], g[p]))
        say("")
        say("Gib die gewünschte Länge in STUNDEN an.")
        v=input()
        if v == "" then
            v = 0
        else
            v=tonumber(v)
        end
        elseif 3 == h then
        v=24
        elseif 2 == h then
        v=12
        elseif 1 == h then
        v=6
        end

        say_title("Landrates")
        say(string.format("%s : %s %d%% (für %d Stunden)", locale.empire_names[e], title_list[t], g[p], v))
        say("")
        say("Möchtest du die Rates wirklich so setzen?")
        local s = select("Ja", "Nein")
        if 1 == s then
        __give_empire_priv(e, t, g[p], v*60*60)
        say("Die Bonus rates wurden dem gewählten")
        say(" Reich/en zugeteilt.")
        else
        say("Die Einstellung der Rates wurde verworfen")
        end
    end
    function Lotterie()
        say_reward("Was möchsten sie gerne?")
        local g = select("Lottozahlen setzen", "Lotto Auswertung", "Lotto Aktivieren/Deakvieren", "Schließen")
        if 1 == g then
        local zahl1 = number(1, 49)
            local zahl2 = number(1, 49)
            local zahl3 = number(1, 49)
            local zahl4 = number(1, 49)
            local zahl5 = number(1, 49)
            local zahl6 = number(1, 49)
            local zahl7 = number(1, 100)
            local Code = number(1, 999999999)
            game.set_event_flag("Lotto_zahl1",zahl1)
            game.set_event_flag("Lotto_zahl2",zahl2)
            game.set_event_flag("Lotto_zahl3",zahl3)
            game.set_event_flag("Lotto_zahl4",zahl4)
            game.set_event_flag("Lotto_zahl5",zahl5)
            game.set_event_flag("Lotto_zahl6",zahl6)
            game.set_event_flag("Lotto_zahl7",zahl7)
            game.set_event_flag("Code",Code)
            say("Lottozahlen wurde erfolgreich gesetzt.")
            say("Die Verlosung wurde deaktiviert.")
            game.set_event_flag("Lotto_Aktiviert",1)
            game.set_event_flag("Lotto_auslosung",0)
        end
        if 2 == g then
            if game.get_event_flag("Lotto_auslosung") == 1 then
            say("Lottery Auswertung nun deaktiviert")
            game.set_event_flag("Lotto_auslosung",0)
            else 
            game.set_event_flag("Lotto_auslosung",1)
            say("Lottery Auswertung nun aktiviert")
            notice_all("Lottery-Event: Die Verlosung hat nun begonnen.")
            end
        end
        if 3 == g then
            if game.get_event_flag("Lotto_Aktiviert") == 1 then
            say("Lottery ist deaktiviert")
            game.set_event_flag("Lotto_Aktiviert",0)
            else 
            game.set_event_flag("Lotto_Aktiviert",1)
            say("Lottery nun aktiviert")
            end
        end
        
    end
    
    function eventstatus()
        say_title("Folgende Event Funktionen sind ON/OFF")
        say("")
        -----------------------------------------------------------
        local meldung = "Lotteryevent: "
        if game.get_event_flag("Lotto_Aktiviert") == 1 then
        meldung = meldung.."Aktiviert ON, "
        else
        meldung = meldung.."Aktiviert OFF, "
        end    
        if game.get_event_flag("Lotto_auslosung") == 1 then
        meldung = meldung.."Auslosung ON, "
        else
        meldung = meldung.."Auslosung OFF, "
        end
        say_reward(""..meldung.."")
        -----------------------------------------------------------
        if game.get_event_flag("50tanaka") == 1 then
        say_reward("Tanaka Event ist gestartet.")
        else
        say("Tanaka Event ist nicht gestartet.")
        end
        -----------------------------------------------------------
        if game.get_event_flag("drop_moon") == 1 then
        say_reward("Mondlicht-Schatztruhe ist gestartet.")
        else
        say("Mondlicht-Schatztruhe ist nicht gestartet.")
        end
        -----------------------------------------------------------
        if game.get_event_flag("halloween_drop") == 1 then
        say_reward("Halloween-Event ist gestartet.")
        else
        say("Halloween-Event ist nicht gestartet.")
        end
        
        if game.get_event_flag("valentine_drop") == 1 then
        say_reward("Valentins-Event ist gestartet.")
        else
        say("Valentins-Event ist nicht gestartet.")
        end
        
        if game.get_event_flag("icecream_drop") == 1 then
        say_reward("Icecream-Event ist gestartet.")
        else
        say("Icecream-Event ist nicht gestartet.")
        end
        
        if game.get_event_flag("football_drop") == 1 then
        say_reward("Football-Event ist gestartet.")
        else
        say("Football-Event ist nicht gestartet.")
        end
        
        if game.get_event_flag("whiteday_drop ") == 1 then
        say_reward("Whiteday-Event ist gestartet.")
        else
        say("Whiteday-Event ist nicht gestartet.")
        end
        
        if game.get_event_flag("kids_day_drop_high ") == 1 then
        say_reward("Kindertag-Event ist gestartet.")
        else
        say("Kindertag-Event ist nicht gestartet.")
        end
        -----------------------------------------------------------
        local val=0
        local msg = "Weihnachtsevent: "
        if game.get_event_flag("xmas_tree") == 1 then
        msg = msg.."Baum, "
        val = val + 1
        end
        if game.get_event_flag("xmas_song") == 1 then
        val = val + 1
        msg = msg.."Musik, "
        end    
        if game.get_event_flag("xmas_snow") == 1 then
        msg = msg.."Schnee, "
        val = val + 1
        end
        if game.get_event_flag("xmas_sock") == 1 then
        msg = msg.."Socke, "
        val = val + 1
        end
        if val == 0 then
        say("Kein Weihnachtsevent aktiv.")
        else
        say_reward(""..msg.."")
        end
        -----------------------------------------------------------
        if game.get_event_flag("#wart#") == 1 then
        say_reward("Wartungsarbeit ist Aktiviert.")
        else
        say("Wartungsarbeit ist nicht Aktiviert.")
        end
            
        say("")
        wait()
    end
    function gmonline()
        say_reward("Was möchsten sie gerne?")
        if pc.getqf("automeld") == 1 then 
        say("Automatische Meldung ist aktiviert")
        else 
        say("Status: Automatische Meldung ist deaktiviert")
        end
        local g = select("Online Melden", "Automatisch Online melden beim Login", "Online melde zeit setzen", "Schließen")
        if 1 == g then
            notice_all(""..pc.get_name().." ist nun Online, und steht für eure Fragen zur Verfügung")
        elseif 2 == g then
            if pc.getqf("automeld") == 1 then
            say("Automatische Meldung ist deaktiviert")
            pc.setqf("automeld",0)
            else
            say("Automatische Meldung ist aktiviert")
            pc.setqf("automeld",1)
            end
        elseif 3 == g then
        say("Gebe die zeit ein (in Sekunden) wie lange du Offline sein musst, bevor Automatische meldung erscheint")
        say("Standartmässig sind 3600 Sekunden")
        local zeit = tonumber(input("0")) or 0
        pc.setqf("abstand",zeit)
        say("Deine zeit von "..zeit.." Sekunden wurde gesetzt und Aktiviert.")
        pc.setqf("automeld",1)
        else 
        return
        end
        
        
    end
   
   when login with pc.is_gm() begin
       affect.add_collect(apply.HP_REGEN, 50000, 3)
    affect.add_collect(apply.SP_REGEN, 50000, 3)
    local name = pc.get_name()
    game.set_event_flag(name, 1)
    setskin(NOWINDOW)  
    syschat("System: Guten Tag, "..pc.get_name().." Sie sind nun angemeldet!")
    if get_time() > pc.getqf("abgelaufen") and pc.getqf("automeld") == 1 then
    notice_all(""..pc.get_name().." ist nun Online, und steht für eure Fragen zur Verfügung")
    if pc.getqf("abstand") == 0 then
    pc.setqf("abgelaufen",get_time()+60*60*1)
    else
    local zeit = get_time() + pc.getqf("abstand")
    pc.setqf("abgelaufen",zeit)
    syschat("BETA MELDUNG: Zeit wurde gesett auf "..zeit.." Sekunden aktuell "..get_time()..", Online Meldung.")
    end
    end
    
    end 
    when logout with pc.is_gm() begin
    local name = pc.get_name()
    game.set_event_flag(name, 0)
    setskin(NOWINDOW)    
    syschat("System: Auf Wiedersehen, "..pc.get_name().." Sie sind nun Abgemeldet!")
    end
    
    function wartung()
        local s = select("Zeit Setzen", "Aktivieren", "Schließen")
        if s == 1 then
            say("Welchen Tag? Nur Zahl")
            local Tag = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#Tag",Tag)
            
            say("Welchen Monat? Nur Zahl ")
            local monat = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#monat",monat)
            
            say("Welchen Jahr? Nur Zahl ")
            local jahr = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#jahr",jahr)
            
            say("Welchen Stunde?")
            local stunde = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#stunde",stunde)
            
            say("Welchen minute?")
            local minute = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#minute",minute)
            
            say("Welchen Dauer in Minuten?")
            local dauer = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#dauer",dauer)
            say("Wartungsarbeitzeit wurde gesetzt")
        elseif s == 2 then
            if game.get_event_flag("#wart#") == 1 then
                command("e #wart# 0")
                say("Wartungsarbeit wurde Deaktiviert")
            else
                command("e #wart# 1")
                say("Wartungsarbeit wurde Aktiviert")
            end
        end
    end
            
    when letter with pc.is_gm() begin
            send_letter("GM Panel")
        end
        when info or button with pc.is_gm() or pc.get_gm_level() >= 2 begin
    say("Womit kann ich ihnen dienen?")
    local s = select("Skill setzen", "Teleportieren","Event Manager", "Landrates", "Online Melde Funktionen", "Gm Bonis","Lager öffnen", "Schließen")
    if s == 1 then
    say("Welche Skillrichtung wählst du?")
    if pc . job == 0 then
    local s = select("Groß Meister Mentalo", "Perfekter Meister Mentalo", "Groß Meister Körper", "Perfekter Meister Körper", "Pferd usw. setzen", "Schließen")
    if s == 1 then    gm_item.skillsett(16,21,30,2)    say("Mentalo Groß Meister")
    elseif s == 2 then    gm_item.skillsett(16,21,59,2)    say("Mentalo Perfekt Meister")
    elseif s == 3 then    gm_item.skillsett(1,6,30,1)    say("körper Groß Meister")
    elseif s == 4 then    gm_item.skillsett(1,6,59,1)    say("körper Perfekt Meister")
    elseif s == 5 then    gm_item.skillsett(99999999999)
    else
    return
    end
    elseif pc . job == 1 then
    local s = select("Groß Meister Nahkampf", "Perfekter Meister Nahkampf", "Groß Meister Fernkampf", "Perfekter Meister Fernkampf", "Schließen")
    if s == 1 then    gm_item.skillsett(31,36,30,1)    say("Nahkampf Groß Meister")
    elseif s == 2 then    gm_item.skillsett(3,36,59,1)    say("Nahkampf Perfekt Meister")    
    elseif s == 3 then    gm_item.skillsett(46,51,30,2)    say("Fernkampf Groß Meister")
    elseif s == 4 then    gm_item.skillsett(46,51,59,2)    say("Fernkampf Perfekt Meister")
    else
    return
    end
    elseif pc . job == 2 then
    local s = select("Groß Meister Waffenmagie", "Perfekter Meister Waffenmagie", "Groß Meister Schwarzemagie", "Perfekter Meister Schwarzemagie", "Schließen")
    if s == 1 then    gm_item.skillsett(61,66,30,1)    say("Waffenmagie Groß Meister")
    elseif s == 2 then    gm_item.skillsett(61,6,59,1)    say("Waffenmagie Perfekt Meister")
    elseif s == 3 then    gm_item.skillsett(76,81,30,2)    say("Schwarzemagie Groß Meister")
    elseif s == 4 then    gm_item.skillsett(76,81,59,2)    say("Schwarzemagie Perfekt Meister")
    else
    return
    end
    elseif pc . job == 3 then
    local s = select("Groß Meister Drachen", "Perfekter Meister Drachen", "Groß Meister Heilung", "Perfekter Meister Heilung", "Schließen")
    if s == 1 then    gm_item.skillsett(91,96,30,1)    say("Drachen Groß Meister")
    elseif s == 2 then    gm_item.skillsett(91,96,59,1)    say("Drachen Perfekt Meister")
    elseif s == 3 then    gm_item.skillsett(106,111,30,2)    say("Heilung Groß Meister")
    elseif s == 4 then    gm_item.skillsett(106,111,59,2)    say("Heilung Perfekt Meister")
    else
    return
    end
    end
    end
    if s == 2 then
    say("Welche Ortschaft?")
    local o = select("Spinnendungeon 2", "Hwang Tempel", "Geisterwald", "Roter Wald", "Orktal", "Grotte der Verbannung", "Sonstige Maps", "Schließen")
    if o == 1 then
        say("Spinnendungeon Ebene 2")
        local ss = select("Anfang", "Bosskamer", "Schließen")
        if ss == 1 then
        say("Ich bringe dich Spinnendungeon Ebene 2, Anfang")
        wait()
        pc.warp(704100, 464100)    
        elseif ss == 2then
        say("Ich bringe dich Spinnendungeon Ebene 2, Bosskammer")
        wait()
        pc.warp(704100, 522500)    
        end
    elseif o == 2 then
        say("Hanf Tempel")
        local ss = select("Anfang", "Vorm Dämonenturm", "Schließen")
        if ss == 1 then
        say("Ich bringe dich Hwang Tempel, Anfang")
        wait()
        pc.warp(553600, 143600)    
        elseif ss == 2 then
        say("Ich bringe dich Hwang Tempel, Vorm Dämonenturm")
        wait()
        pc.warp(590400, 111100)
        end
    elseif o == 3 then
        say("Geisterwald")
        local ss = select("Anfang", "Mitte", "Ende", "Schließen")
        if ss == 1 then
        say("Ich bringe dich Geisterwald, Anfang")
        wait()
        pc.warp(289900, 5600)    
        elseif ss == 2 then
        say("Ich bringe dich Geisterwald, Mitte")
        wait()
        pc.warp(303100, 25600)    
        elseif ss == 3 then
        say("Ich bringe dich Geisterwald, Ende")
        wait()
        pc.warp(286900, 42900)    
        end
    elseif o == 4 then
        say("Roter Wald")
        local ss = select("Anfang", "Levelplatz 1", "Levelplatz 2", "Schließen")
        if ss == 1 then
        say("Ich bringe dich Roter Wald, Anfang")
        wait()
        pc.warp(1118100, 69500)    
        elseif ss == 2 then
        say("Ich bringe dich Roter Wald, Levelplatz 1")
        wait()
        pc.warp(1079500, 7300)    
        elseif ss == 3 then
        say("Ich bringe dich Roter Wald, Levelplatz 2")
        wait()
        pc.warp(1119800, 7400)    
        end
    elseif o == 5 then
        say("Orktal")
        local ss = select("Gelb", "Rot", "Blau", ",levelstelle 1", "Levelstelle 2,", "Vor Grotte NPC´s", "Schließen")
        if ss == 1 then
        say("Ich bringe dich Orktal, Gelb")
        wait()
        pc.warp(269700, 739900)    
        elseif ss == 2 then
        say("Ich bringe dich Orktal, Rot")
        wait()
        pc.warp(401600, 674700)    
        elseif ss == 3 then
        say("Ich bringe dich Orktal, Blau")
        wait()
        pc.warp(320700, 808300)    
        elseif ss == 4 then
        say("Ich bringe dich Orktal, levelstelle 1")
        wait()
        pc.warp(313600, 728400)    
        elseif ss == 5 then
        say("Ich bringe dich Orktal, Levelstelle 2")
        wait()
        pc.warp(333900, 757700)    
        elseif ss == 6 then
        say("Ich bringe dich Orktal, Vor Grotte NPC´s")
        wait()
        pc.warp(284400, 809900)    
        end
    elseif o == 6 then
    local ssf = select("Grotte der Verbannung", "Grotte der Verbannung Ebene 2", "Grotte der Verbannung Bosskammer", "Schließen")
        if ssf == 1 then
        say("Grotte der Verbannung")
        local ss = select("Anfang", "Ende", "Schließen")
        if ss == 1 then
        say("Ich bringe dich Grotte der Verbannung, Anfang")
        wait()
        pc.warp(9900, 1207400)
        elseif ss == 2 then
        say("Ich bringe dich Grotte der Verbannung, Ende")
        wait()
        pc.warp(136500, 1343600)
        end
        end
        if ssf == 2 then
        say("Grotte der Verbannung Ebene 2")
        local sss = select("Anfang", "Ende", "Schließen")
        if sss == 1 then
        say("Ich bringe dich Grotte der Verbannung Ebene 2, Anfang")
        wait()
        pc.warp(241600, 1274600)    
        elseif sss == 2 then
        say("Ich bringe dich Grotte der Verbannung Ebene 2, Ende")
        wait()
        pc.warp(180300, 1220700)
        end
        end
        if ssf == 3 then
        say("Ich bringe dich Grotte der Verbannung Ebene Bosskammer")
        wait()
        pc.warp(843200, 1066900)
        end

        elseif o == 7 then
        local ssf = select("Land der Toten", "Handelsmap", "Eventmap", "Farmmap", "Kaiser-Palast", "Schließen")
            if ssf == 1 then
            say("Land der Toten")
            local ss = select("Startpunkt","leveplatz 1#","leveplatz 2#","leveplatz 3#","Schließen")
                if ss == 1 then
                say("Ich bringe dich zu den Land der Toten, Startpunkt")
                wait()
                pc.warp(5100,1072600)
                end
            elseif ssf == 2 then
            say("Ich bringe dich zu der Handelsmap")
            wait()
            pc.warp(444400, 444400)
            elseif ssf == 3 then
            say("Ich bringe dich zu der Event Map")
            wait()
            pc.warp(83200, 0)
            elseif ssf == 4 then
            say("Welchen Startpunkt Farmmap:")
            local ff = select("Rot","Gelb","Blau","Schließen")
            if ff == 1 then
                say("Ich bringe dich zu Farmmap, Rot")
                wait()
                pc.warp(614400,1049600)
            elseif ff == 2 then 
                say("Ich bringe dich zu Farmmap, Gelb")
                wait()
                pc.warp(628400,1123900)
            elseif ff == 3 then
                say("Ich bringe dich zu Farmmap, Blau")
                wait()
                pc.warp(679100,1192400)
            else return
            end
            elseif ssf == 5 then
            say("Ich bringe dich zu der Monarchen-Palast")
            wait()
            pc.warp(999900, 999900)

            end
        end
    end

    if s == 3 then --Eventmanager
    gm_item.eventstatus()
    say_title("Welches Event willst du Beenden/Starten?")
        local i = select("Tanaka Event", "Weihnachts-Event#", "Mondlicht-Schatztruhe (Besonderen Tagen, Neujahr, Gm geburtstag)", "Halloween-Event# (31. Oktober)","Valentins-Event# (14. Februar)","Icecream-Event (Immer wenn es verdammt Sonnig ist)", "Football-Event (Zu WM zeiten)", "Whiteday-Event# (14. März)", "Kindertag-Event# (01. Juni)","Lottery-Verwaltung", "Schließen")
        if 1 == i then    gm_item.tanakaevent()    end
        if 200 == i then    gm_item.weihnachtsevent() end
        if 3 == i then
            say("Mondlicht-Schatztruhe Event Starten?")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e drop_moon 1")
                say("Mondlicht-Schatztruhe Event ist gestartet")
            elseif f == 2 then
                command ("e drop_moon 0")
                say("Mondlicht-Schatztruhe Event ist beendet")
            else
            return
            end
        end
        if 4000 == i then
            say("Halloween-Event Starten?")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e halloween_drop 1")
                say("Halloween-Event ist gestartet")
            elseif f == 2 then
                command ("e halloween_drop 0")
                say("Halloween-Event ist beendet")
            else
            return
            end
        end
        if 5000 == i then
            say_title("lässt Schokolade,Rote Rosen droppen")
            say("Valentins-Event Starten?")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e valentine_drop 1")
                say("Valentins-Event ist gestartet")
            elseif f == 2 then
                command ("e valentine_drop 0")
                say("Valentins-Event ist beendet")
            else
            return
            end
        end
        if 6 == i then
            say_title("Lässt Icecream Droppen")
            say("Icecream-Event Starten?")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e icecream_drop 1")
                say("Icecream-Event ist gestartet")
            elseif f == 2 then
                command ("e icecream_drop 0")
                say("Icecream-Event ist beendet")
            else
            return
            end
        end
        if 7 == i then
            say("Football-Event Starten?")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e football_drop 1")
                say("Football-Event ist gestartet")
            elseif f == 2 then
                command ("e football_drop 0")
                say("Football-Event ist beendet")
            else
            return
            end
        end
        if 800 == i then
            say("Whiteday-Event Starten?")
            say("lässt Bonbon, gelbe Rose droppen")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e whiteday_drop 1")
                say("Whiteday-Event ist gestartet")
            elseif f == 2 then
                command ("e whiteday_drop 0")
                say("Whiteday-Event ist beendet")
            else
            return
            end
        end
        if 900 == i then
            say("Kindertag-Event Starten?")
            say("lässt Rätselhafte truhe droppen")
            local f = select ("Starten" , "Beenden", "Abbrechen")
            if f == 1 then
                command ("e kids_day_drop_high 1")
                say("Kindertag-Event ist gestartet")
            elseif f == 2 then
                command ("e kids_day_drop_high 0")
                say("Kindertag-Event ist beendet")
            else
            return
            end
        end
        if 10 == i then
        gm_item.Lotterie()
        end
    end
    if s == 4 then    
        gm_item.landrates()    
    end 
    if s == 5 then
        gm_item.gmonline()
    end
    if s == 6 then
        gm_item.seiteeins()
    end
    if s == 7 then
        game.open_safebox()
    end
    
    send_letter("GM Panel")
end --when use ende
end --state ende
end --quest ende  [/SPOILER] 
05/28/2014 16:05 QuickFlameZ#10257
Quote:
Originally Posted by thespeedyy View Post
PHP Code:
quest gm_list begin 
    state start begin 
        function DoSomething()
            if gms==nil then
                gms = gms or {}
                local sel=mysql_query('select mName from common.gmlist')
                for _,value in next,sel do
                    table.insert(gm,value[1])
                    cmdchat('SetTeamOffline '..value[1])
                end
            else
                for i=1, table.getn(gms) do 
                    local name = gms[i]
                    if game.get_event_flag(name)==0 then
                        cmdchat('SetTeamOffline '..name) 
                    else
                        cmdchat('SetTeamOnline '..name)
                    end
                end 
            end
        end
        when login begin 
            gm_list.DoSomething()
            loop_timer("check_gm", 10) 
        end 
        when check_gm.timer begin 
            gm_list.DoSomething()
        end 
        when login with pc.is_gm() begin 
            local name = pc.get_name() 
            game.set_event_flag(name, 1) 
        end 
        when logout with pc.is_gm() begin 
            local name = pc.get_name() 
            game.set_event_flag(name, 0) 
        end 
    end 
end 
mein problem ist er ließt trotzdem die namen nicht.. :/
[Only registered and activated users can see links. Click Here To Register...]
Du versuchst in eine nicht vorhandene Tabelle einen wert einzufügen.
kind regards
05/29/2014 17:19 PlayaStylee#10258
Hallo Habe ein Problemm mit der quest Wenn ich auf läger öffnen klicke kommt bei mir GM bonis zum pushen es ist alles vertauscht könnte mir bitte einer gucken

PHP Code:
quest gm_item begin
state start begin
    when 70021.chat. "Mapindex" begin
    say("")
    say("Dein Mapindex: "..pc.get_map_index().."")
    say("Kordinaten: "..pc.get_local_x().." "..pc.get_local_y().."")
    say("")
    end
    function text()
        say("Wie viel Sekunden soll sie anhalten?")
        say("5 Minuten = 300 Sekunden")
        say("10 Minuten = 600 Sekunden")
        say("30 Minuten = 1800 Sekunden")
        say("1 Stunde = 3600 Sekunden")
        say("24 Stunde = 86400 Sekunden")
        say("7 tage = 604800 Sekunden")
    end

    function seiteeins()
    say_title("Folgende Bonis kannst dir setzen (Seite 1)")
    local i = select("Verteidigung +", "Abwehr gegen %", "Stark gegen %", "Bewegungsgeschwindigkeit+", "Angriffgeschwindigkeit+", "Schadenserhöhung %", "Schadensverminderung.. %", "Nächste Seite", "Schließen")
            if 1 == i then --Verteidigung
                say_title("Verteidigung")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Verteidigung")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.DEF_GRADE_BONUS,wert,zeit)
                chat("Du hast dir "..wert.."+ Verteidigung gegeben für "..zeit.." Sekunden.")
            end
            if 2 == i then --Abwehr gegen
                local s = select("Abwehr gegen Ohnmacht", "Abwehr gegen Verlangsamen", "Abwehr gegen Stürzen", "alle Rassen", "Magiewiederstand", "Schließen")
                if 1 == s then
                say_title("Abwehr gegen Ohnmacht")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.IMMUNE_STUN,100,zeit)
                chat("Du hast dir Abwehr gegen Ohnmacht gegeben für "..zeit.." Sekunden.")
                elseif 2 == s then
                say_title("Abwehr gegen Verlangsamen")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.IMMUNE_SLOW,100,zeit)
                chat("Du hast dir Abwehr gegen Verlangsamen gegeben für "..zeit.." Sekunden.")
                elseif 3 == s then
                say_title("Abwehr gegen Stürzen")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.IMMUNE_FALL,100,zeit)
                chat("Du hast dir Abwehr gegen Stürzen gegeben für "..zeit.." Sekunden.")
                
                elseif 4 == s then
                say_title("Abwehr gegen alle Rassen")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Abwehr gegen alle Rassen")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect_point(POINT_RESIST_WARRIOR,wert,zeit)
                affect.add_collect_point(POINT_RESIST_ASSASSIN,wert,zeit)
                affect.add_collect_point(POINT_RESIST_SURA,wert,zeit)
                affect.add_collect_point(POINT_RESIST_SHAMAN,wert,zeit)
                chat("Du hast dir "..wert.."% Abwehr gegen Krieger,Ninja,Sura,Schami gegeben für "..zeit.." Sekunden.")
                elseif 5 == s then
                say_title("Magiewiederstand")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Magiewiederstand")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect_point(POINT_RESIST_MAGIC,wert,zeit)
                chat("Du hast dir "..wert.."% Magiewiederstand gegeben für "..zeit.." Sekunden.")
                end
                
            end
            if 3 == i then --Stark gegen %
            say("Welchen Stark gg Boni?")
            local s = select("Untote", "Teufel", "Monster", "Halbmenschen", "alle Rassen", "Schließen")
                if 1 == s then
                    say_title("Stark gegen Untote")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Untote")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    affect.add_collect(apply.ATTBONUS_UNDEAD,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gg Untote gegeben für "..zeit.." Sekunden.")
                elseif 2 == s then
                    say_title("Stark gegen Teufel")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Teufel")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    affect.add_collect(apply.ATTBONUS_DEVIL,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gg Teufel gegeben für "..zeit.." Sekunden.")
                elseif 3 == s then
                    say_title("Stark gegen Monster")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Monster")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    --affect.add_collect(apply.ATT_BONUS_TO_MONSTER,wert,zeit)
                    affect.add_collect_point(POINT_ATTBONUS_MONSTER,wert, zeit)
                    chat("Du hast dir "..wert.."% Stark gg Monster gegeben für "..zeit.." Sekunden.")
                elseif 4 == s then
                    say_title("Stark gegen Halbmenschen")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen Halbmenschen")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0
                    affect.add_collect(apply.ATTBONUS_HUMAN,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gg Halbmenschen gegeben für "..zeit.." Sekunden.")
                elseif 5 == s then
                    say_title("Stark gegen alle Rassen")
                    say("Welchen Wert möchtest du?")
                    local wert = tonumber(input("0")) or 0
                    say_title("Stark gegen alle Rassen")
                    gm_item.text()
                    local zeit = tonumber(input("0")) or 0    
                    affect.add_collect(apply.ATTBONUS_WARRIOR,wert,zeit)
                    affect.add_collect(apply.ATTBONUS_ASSASSIN,wert,zeit)
                    affect.add_collect(apply.ATTBONUS_SURA,wert,zeit)
                    affect.add_collect(apply.ATTBONUS_SHAMAN,wert,zeit)
                    chat("Du hast dir "..wert.."% Stark gegen Krieger,Ninja,Sura,Schami gegeben für "..zeit.." Sekunden.")
                end
            end
            if 4 == i then --Bewegungsgeschwindigkeit
                say_title("Bewegungsgeschwindigkeit")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Bewegungsgeschwindigkeit")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.MOV_SPEED, wert, zeit)
                chat("Du hast dir "..wert.."+ Bewegungsgeschwindigkeit gegeben für "..zeit.." Sekunden.")
            end
            if 5 == i then --Angriffgeschwindigkeit
                say_title("Angriffgeschwindigkeit")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Angriffgeschwindigkeit")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.ATT_SPEED, wert, zeit)
                chat("Du hast dir "..wert.."+ Angriffsgeschwindigkeit gegeben für "..zeit.." Sekunden.")
            end
            if 6 == i then --Schadenserhöhung
                say_title("Schadenserhöhung")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Schadenserhöhung")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect_point(POINT_ATT_BONUS,wert,zeit)
                chat("Du hast dir "..wert.."% Schadenserhöhung gegeben für "..zeit.." Sekunden.")
            end
            if 7 == i then --Schadensreduzierung
                say_title("Schadensverminderung")
                say("Welchen Wert möchtest du?")
                local wert = tonumber(input("0")) or 0
                say_title("Schadensverminderung (1,2 hand deff, dolch, pfeil und Magie")
                gm_item.text()
                local zeit = tonumber(input("0")) or 0
                affect.add_collect(apply.RESIST_SWORD, wert, zeit)
                affect.add_collect(apply.RESIST_TWOHAND, wert, zeit)
                affect.add_collect(apply.RESIST_DAGGER, wert, zeit)
                affect.add_collect(apply.RESIST_BELL, wert, zeit)
                affect.add_collect(apply.RESIST_FAN, wert, zeit)
                affect.add_collect(apply.RESIST_MAGIC, wert, zeit)
                chat("Du hast dir "..wert.."% Schadensverminderung gegeben für "..zeit.." Sekunden.")
            end
            if 8 == i then --Nächste Seite
            gm_item.seitezwei()
            end
    end
    
    function seitezwei()
        say_title("Folgende Bonis kannst dir setzen (Seite 2)")
        local i = select("TP +", "Angriffswert +", "Giftreduzierung %", "TP Regeneration %", "Zaubergeschwindigkeit +", "Chance Nah-angriff abzublocken %", "Zurück", "Alle Bonis Löschen", "Schließen")
        if 1== i then --TP
            say_title("TP")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("TP")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect_point(POINT_MAX_HP, wert, zeit)
            affect.add_collect_point(POINT_HP, wert, zeit)
            chat("Du hast dir "..wert.."+ TP gegeben für "..zeit.." Sekunden.")
        end
        if 2 == i then --Angriffswert
            say_title("Angriffswert")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Angriffswert")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect(apply.ATT_GRADE_BONUS, wert, zeit)
            chat("Du hast dir "..wert.."+ Angriffswert gegeben für "..zeit.." Sekunden.")
        end
        if 3 == i then --Giftreduzierung
            say_title("Giftreduzierung")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Giftreduzierung")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect_point(POINT_POISON_REDUCE,wert,zeit)
            chat("Du hast dir "..wert.."% Giftreduzierung gegeben für "..zeit.." Sekunden.")
            end
        if 4 == i then --TP Regeneration
            say_title("TP Regeneration")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("TP Regeneration")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            affect.add_collect_point(POINT_HP_REGEN, wert, zeit)
            chat("Du hast dir "..wert.."% TP Regeneration gegeben für "..zeit.." Sekunden.")
            end
        if 5 == i then --Zaubergeschwindigkeit
            say_title("Zaubergeschwindigkeit")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Zaubergeschwindigkeit")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            --affect.add_collect(apply.CAST_SPEED,wert,Zeit)
            chat("Du hast dir "..wert.."+ Zaubergeschwindigkeit % gegeben für "..zeit.." Sekunden.")
            affect.add_collect_point(POINT_CASTING_SPEED, wert, zeit)
        end    
            
        if 6 == i then --
            say_title("Chance Nah-angriff abzublocken")
            say("Welchen Wert möchtest du?")
            local wert = tonumber(input("0")) or 0
            say_title("Chance Nah-angriff abzublocken")
            gm_item.text()
            local zeit = tonumber(input("0")) or 0
            chat("Du hast dir "..wert.."+ Chance Nah-angriff abzublocken % gegeben für "..zeit.." Sekunden.")
            affect.add_collect_point(POINT_BLOCK , wert, zeit)
        end
        if 7 == i then --Nächste Seite
            gm_item.seiteeins()
    elseif 8 == i then
                affect.remove_all_collect()
                say("Alle Bonis wurden gelöscht.")
        end
    end
    
    function tanakas(a,b)
        local anzahl = a
        i = 1
        while i  <= anzahl do
        mob.spawn(5005,130,130,1)
        i = i + 1
        end
        local anzahl1 = b
        o = 0
        while o  <= anzahl1 do
        mob.spawn(5004,130,130,1)
        o = o + 1
        end
        game.set_event_flag("50tanaka",1)
        game.set_event_flag("50tanaka_anzahl",b)
        notice_all("Es wurde das Tanaka Event gestartet")
        notice_all("Der/Die Spieler/in die das Ohr dropppen, und auf das Ohr klicken bekommen eine Belohnung.")
        notice_all("Um das an Event teilzunehmen geht zu "..mob_name(9004).." in Map1")
        notice_all("Dort findet ihr ingesammt "..b.." echte Tanakas")
    end
    
    function skillsett(a,b,c,d)
        if a == 99999999999 then
        command("setsk 124 50")
        command("setsk 131 50")
        command("setsk 121 50")
        command("setsk 129 50")
        command("setsk 126 50")
        command("setsk 127 50")
        command("setsk 128 50")
        command("setsk 137 59") 
        command("setsk 138 59") 
        command("setsk 139 59") 
        command("setsk 140 59") 
        command("setsk 125 59") 
        command("setsk 130 59")
        say("Bergbau P")
        say("Pferde Rufen P")
        say("Führung P")
        say("Verwandeln P")
        say("Rot sprachen P")
        say("Gelb sprachen P")
        say("Pferdeskills P")
        say("Reiten P")
        return
        end
        pc.set_skill_group(""..d.."")
        i = a
        while i  <= b do
        pc.set_skill_level(""..i.."", ""..c.."")
        i = i + 1
        end
        command("setsk "..a.." "..c.."")
    end
    function tanakaevent()
        if pc.get_map_index() == 190 then
            say("Diese Option spawnt Tanaka Piraten")
            say("Und die richtigen Droppen das Ohr!")
            say("")
            if game.get_event_flag("50tanaka_back") == 0 then
                say_reward("Zurück in dorf port ist deaktiviert.")
            else
                say_reward("Zurück in dorf port ist aktiviert.")
            end
            say("")
            say("Willst du das Tanaka Event starten?")
            local m =select("Ja", "Nein", "Beenden", "Zurück in dorf port an/aus")
                if 1==m then
                    say_reward("Wie viele Sollen gespawnt werden?")
                    say_reward("#Zahl ist die anzahl vom echten Tanaka")
                    local o =select("50 #1", "100 #2", "150 #3","Eigene angabe")
                    if 1==o then    gm_item.tanakas(50,1)
                    elseif 2 == o then    gm_item.tanakas(100,2)
                    elseif 3 == o then    gm_item.tanakas(150,3)
                    elseif 4 == o then
                    say("Wie viele UNECHTE Tanakas willst du Spawnen lassen?")
                    local a = tonumber(input("0")) or 0
                    say("Wie viele ECHTE Tanakas willst du Spawnen lassen?")
                    local b = tonumber(input("0")) or 0
                    gm_item.tanakas(a,b)
                end
                elseif 2 == m then
                    say("50 Tanaka Event wird nicht gestartet!")
                elseif 3 == m then
                    game.set_event_flag("50tanaka",0)
                    say("50 Tanaka Event wurde beendet.")
                    warp_all_to_village( pc.get_map_index() , 5)
                elseif 4 == m then
                    if game.get_event_flag("50tanaka_back") == 0 then
                    say("50 Tanaka event, zuückport ist aktiviert.")
                    game.set_event_flag("50tanaka_back",1)
                else
                    say("50 Tanaka event, zuückport ist deaktiviert.")
                    game.set_event_flag("50tanaka_back",0)
                    end
                end
        else 
            say("Du musst auf der Eventmap Sein.")
        end
    end
    
    function weihnachtsevent()
        say_title("Was genau möchtest du am Weihnachtsevent starten?")        
            local f = select ("Weihnachtsbaum", "Schnee", "Weihnachtsmusik", "Sockendrop", "Weihnachtsevent starten (Alles)", "Weihnachtsevent stoppen (Alles)", "Abbrechen")
            if f == 1 then        
                local g = select ("Weihnachtsbaum aufstellen" , "Weihnachtsbaum wegräumen", "Abbrechen")
                if g == 1 then
                    command ("e xmas_tree 1")
                    say("Der Weihnachtsbaum steht!")
                elseif g == 2 then
                        command ("e xmas_tree 0")
                        say("Der Weihnachtsbaum ist weg!")
                end
            elseif f == 2 then
                local h = select ("Schnee an" , "Schnee aus", "Abbrechen")
                if h == 1 then
                    command("e xmas_snow 1")
                elseif h == 2 then
                    command ("e xmas_snow 0")
                end
            elseif f == 3 then
                    local i = select ("Weihnachts-Musik abspielen", "Musik stoppen", "Abbrechen")
                    if i == 1 then
                        command("e xmas_song 1")
                    elseif i == 2 then
                        command("e xmas_song 0")
                    end
            elseif f == 4 then
                    say("Sockendrop wird noch eingerichtet")
            elseif f == 5 then
                    say("Willst du wirklich alles aktivieren?")
                    say("Also Nachtmodus, den Weihnachtsbaum,")
                    say("Schnee und die Weihnachtsmusik?")
                    say("")
                    local g_sub = select ("Ja", "Nein")
                    if g_sub == 1 then
                        command("e xmas_tree 1")
                        command("e xmas_song 1")
                        command("e xmas_boom 1")
                        command("e xmas_snow 1")
                        say("Alles aktiviert!")
                        end
            elseif f == 6 then
                    say("Willst du wirklich alles deaktivieren?")
                    say("Also Nachtmodus, den Weihnachtsbaum,")
                    say("Schnee und die Weihnachtsmusik?")
                    say("")
                    local g_desub = select ("Ja", "Nein")
                    if g_desub == 1 then
                        command("e xmas_tree 0")
                        command("e xmas_song 0")
                        command("e xmas_boom 0")
                        command("e xmas_snow 0")
                        say("Alles deaktiviert!")
            end
            else
            return
        end
    end
        function landrates()
        say_title("Landrates")
        say("")
        say_reward("Wähle das gewünschte Reich")
        local e = select(locale.empire_names[1], locale.empire_names[2], locale.empire_names[3], locale.empire_names[0], "Standart setzen alle Reiche","Wochenende", locale.cancel)
        if 5 == e then
        command("priv_empire 0 1:item_drop 30 24")
        command("priv_empire 0 2:gold_drop 60 24")
        command("priv_empire 0 3:gold10_drop 5 24")
        command("priv_empire 0 4:exp 150 24")
        --notice_all("<Ankündigung> Die Droppchance von Gegenständen ist gesetzt 10%")
        --notice_all("<Ankündigung> Die Droppchance von Yang ist gesetzt 230%")
        --notice_all("<Ankündigung> Die Droppchance von Yangbomben ist gesetzt 10%")
        --notice_all("<Ankündigung> Die Droppchance von EXP Erfahrungen ist gesetzt 320%")
        return
        elseif 6 == e then
        command("priv_empire 0 1:item_drop 60 24")
        command("priv_empire 0 2:gold_drop 120 24")
        command("priv_empire 0 3:gold10_drop 30 24")
        command("priv_empire 0 4:exp 300 24")
        --notice_all("<Ankündigung> Die Droppchance von Gegenständen ist gesetzt 20%")
        --notice_all("<Ankündigung> Die Droppchance von Yang ist gesetzt 40%")
        --notice_all("<Ankündigung> Die Droppchance von Yangbomben ist gesetzt 30%")
        --notice_all("<Ankündigung> Die Droppchance von EXP Erfahrungen ist gesetzt 40%")
        return
        elseif 7 == e then
        return
        elseif 4 == e then
            e = 0
        end
        say_title("Landrates")
        say(__get_empire_priv_string(e))
        say("")
        say("Wähle den zu verteilenden Bonus")
        local t = select(locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct, locale.cancel)
        if 5 == t then
        return
        end
        say_title("Landrates")
        local title_list = {locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct}
        say(string.format("%s : %s ", locale.empire_names[e], title_list[t]))
        say("")
        say("Wähle hoch sollen die Rates werden?")
        local g={0, 5, 10, 15, 20, 25, 30, 50}
        local p = select(g[1]..'%%', g[2]..'%%', g[3]..'%%', g[4]..'%%', g[5]..'%%', g[6]..'%%', g[7]..'%%', g[8]..'%%', 'Abbrechen')
        if p == 7 then
        return
        end
        say_title("Landrates")
        say(string.format("%s : %s %d%%", locale.empire_names[e], title_list[t], g[p]))
        say("")
        say("Wie lang sollen die Rates anhalten?")
        local v = 0
        local h = select('6 hours', '12 hours', '24 hours', 'Andere Zeit', 'Abbrechen')
        if 5 == h then
        return
        elseif 4 == h then
        say_title("Landrates")
        say(string.format("%s : %s %d%%", locale.empire_names[e], title_list[t], g[p]))
        say("")
        say("Gib die gewünschte Länge in STUNDEN an.")
        v=input()
        if v == "" then
            v = 0
        else
            v=tonumber(v)
        end
        elseif 3 == h then
        v=24
        elseif 2 == h then
        v=12
        elseif 1 == h then
        v=6
        end

        say_title("Landrates")
        say(string.format("%s : %s %d%% (für %d Stunden)", locale.empire_names[e], title_list[t], g[p], v))
        say("")
        say("Möchtest du die Rates wirklich so setzen?")
        local s = select("Ja", "Nein")
        if 1 == s then
        __give_empire_priv(e, t, g[p], v*60*60)
        say("Die Bonus rates wurden dem gewählten")
        say(" Reich/en zugeteilt.")
        else
        say("Die Einstellung der Rates wurde verworfen")
        end
    end
    function Lotterie()
        say_reward("Was möchsten sie gerne?")
        local g = select("Lottozahlen setzen", "Lotto Auswertung", "Lotto Aktivieren/Deakvieren", "Schließen")
        if 1 == g then
        local zahl1 = number(1, 49)
            local zahl2 = number(1, 49)
            local zahl3 = number(1, 49)
            local zahl4 = number(1, 49)
            local zahl5 = number(1, 49)
            local zahl6 = number(1, 49)
            local zahl7 = number(1, 100)
            local Code = number(1, 999999999)
            game.set_event_flag("Lotto_zahl1",zahl1)
            game.set_event_flag("Lotto_zahl2",zahl2)
            game.set_event_flag("Lotto_zahl3",zahl3)
            game.set_event_flag("Lotto_zahl4",zahl4)
            game.set_event_flag("Lotto_zahl5",zahl5)
            game.set_event_flag("Lotto_zahl6",zahl6)
            game.set_event_flag("Lotto_zahl7",zahl7)
            game.set_event_flag("Code",Code)
            say("Lottozahlen wurde erfolgreich gesetzt.")
            say("Die Verlosung wurde deaktiviert.")
            game.set_event_flag("Lotto_Aktiviert",1)
            game.set_event_flag("Lotto_auslosung",0)
        end
        if 2 == g then
            if game.get_event_flag("Lotto_auslosung") == 1 then
            say("Lottery Auswertung nun deaktiviert")
            game.set_event_flag("Lotto_auslosung",0)
            else 
            game.set_event_flag("Lotto_auslosung",1)
            say("Lottery Auswertung nun aktiviert")
            notice_all("Lottery-Event: Die Verlosung hat nun begonnen.")
            end
        end
        if 3 == g then
            if game.get_event_flag("Lotto_Aktiviert") == 1 then
            say("Lottery ist deaktiviert")
            game.set_event_flag("Lotto_Aktiviert",0)
            else 
            game.set_event_flag("Lotto_Aktiviert",1)
            say("Lottery nun aktiviert")
            end
        end
        
    end
    
    function eventstatus()
        say_title("Folgende Event Funktionen sind ON/OFF")
        say("")
        -----------------------------------------------------------
        local meldung = "Lotteryevent: "
        if game.get_event_flag("Lotto_Aktiviert") == 1 then
        meldung = meldung.."Aktiviert ON, "
        else
        meldung = meldung.."Aktiviert OFF, "
        end    
        if game.get_event_flag("Lotto_auslosung") == 1 then
        meldung = meldung.."Auslosung ON, "
        else
        meldung = meldung.."Auslosung OFF, "
        end
        say_reward(""..meldung.."")
        -----------------------------------------------------------
            
        say("")
        wait()
    end
    function gmonline()
        say_reward("Was möchsten sie gerne?")
        if pc.getqf("automeld") == 1 then 
        say("Automatische Meldung ist aktiviert")
        else 
        say("Status: Automatische Meldung ist deaktiviert")
        end
        local g = select("Online Melden", "Automatisch Online melden beim Login", "Online melde zeit setzen", "Schließen")
        if 1 == g then
            notice_all(""..pc.get_name().." ist nun Online, und steht für eure Fragen zur Verfügung")
        elseif 2 == g then
            if pc.getqf("automeld") == 1 then
            say("Automatische Meldung ist deaktiviert")
            pc.setqf("automeld",0)
            else
            say("Automatische Meldung ist aktiviert")
            pc.setqf("automeld",1)
            end
        elseif 3 == g then
        say("Gebe die zeit ein (in Sekunden) wie lange du Offline sein musst, bevor Automatische meldung erscheint")
        say("Standartmässig sind 3600 Sekunden")
        local zeit = tonumber(input("0")) or 0
        pc.setqf("abstand",zeit)
        say("Deine zeit von "..zeit.." Sekunden wurde gesetzt und Aktiviert.")
        pc.setqf("automeld",1)
        else 
        return
        end
        
        
    end
   
   when login with pc.is_gm() begin
       affect.add_collect(apply.HP_REGEN, 50000, 3)
    affect.add_collect(apply.SP_REGEN, 50000, 3)
    local name = pc.get_name()
    game.set_event_flag(name, 1)
    setskin(NOWINDOW)  
    syschat("System: Guten Tag, "..pc.get_name().." Sie sind nun angemeldet!")
    if get_time() > pc.getqf("abgelaufen") and pc.getqf("automeld") == 1 then
    notice_all(""..pc.get_name().." ist nun Online, und steht für eure Fragen zur Verfügung")
    if pc.getqf("abstand") == 0 then
    pc.setqf("abgelaufen",get_time()+60*60*1)
    else
    local zeit = get_time() + pc.getqf("abstand")
    pc.setqf("abgelaufen",zeit)
    syschat("BETA MELDUNG: Zeit wurde gesett auf "..zeit.." Sekunden aktuell "..get_time()..", Online Meldung.")
    end
    end
    
    end 
    when logout with pc.is_gm() begin
    local name = pc.get_name()
    game.set_event_flag(name, 0)
    setskin(NOWINDOW)    
    syschat("System: Auf Wiedersehen, "..pc.get_name().." Sie sind nun Abgemeldet!")
    end
    
    function wartung()
        local s = select("Zeit Setzen", "Aktivieren", "Schließen")
        if s == 1 then
            say("Welchen Tag? Nur Zahl")
            local Tag = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#Tag",Tag)
            
            say("Welchen Monat? Nur Zahl ")
            local monat = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#monat",monat)
            
            say("Welchen Jahr? Nur Zahl ")
            local jahr = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#jahr",jahr)
            
            say("Welchen Stunde?")
            local stunde = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#stunde",stunde)
            
            say("Welchen minute?")
            local minute = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#minute",minute)
            
            say("Welchen Dauer in Minuten?")
            local dauer = tonumber(input("0")) or 00
            game.set_event_flag("#Wartung#dauer",dauer)
            say("Wartungsarbeitzeit wurde gesetzt")
        elseif s == 2 then
            if game.get_event_flag("#wart#") == 1 then
                command("e #wart# 0")
                say("Wartungsarbeit wurde Deaktiviert")
            else
                command("e #wart# 1")
                say("Wartungsarbeit wurde Aktiviert")
            end
        end
    end
            
    when letter with pc.is_gm() begin
            send_letter("GM Panel")
        end
        when info or button with pc.is_gm() or pc.get_gm_level() >= 2 begin
    say("Womit kann ich ihnen dienen?")
    local s = select("Skill setzen", "Teleportieren","Landrates", "Online Melde Funktionen", "Gm Bonis","Lager öffnen", "Schließen")
    if s == 1 then
    say("Welche Skillrichtung wählst du?")
    if pc . job == 0 then
    local s = select("Groß Meister Mentalo", "Perfekter Meister Mentalo", "Groß Meister Körper", "Perfekter Meister Körper", "Pferd usw. setzen", "Schließen")
    if s == 1 then    gm_item.skillsett(16,21,30,2)    say("Mentalo Groß Meister")
    elseif s == 2 then    gm_item.skillsett(16,21,59,2)    say("Mentalo Perfekt Meister")
    elseif s == 3 then    gm_item.skillsett(1,6,30,1)    say("körper Groß Meister")
    elseif s == 4 then    gm_item.skillsett(1,6,59,1)    say("körper Perfekt Meister")
    elseif s == 5 then    gm_item.skillsett(99999999999)
    else
    return
    end
    elseif pc . job == 1 then
    local s = select("Groß Meister Nahkampf", "Perfekter Meister Nahkampf", "Groß Meister Fernkampf", "Perfekter Meister Fernkampf", "Schließen")
    if s == 1 then    gm_item.skillsett(31,36,30,1)    say("Nahkampf Groß Meister")
    elseif s == 2 then    gm_item.skillsett(3,36,59,1)    say("Nahkampf Perfekt Meister")    
    elseif s == 3 then    gm_item.skillsett(46,51,30,2)    say("Fernkampf Groß Meister")
    elseif s == 4 then    gm_item.skillsett(46,51,59,2)    say("Fernkampf Perfekt Meister")
    else
    return
    end
    elseif pc . job == 2 then
    local s = select("Groß Meister Waffenmagie", "Perfekter Meister Waffenmagie", "Groß Meister Schwarzemagie", "Perfekter Meister Schwarzemagie", "Schließen")
    if s == 1 then    gm_item.skillsett(61,66,30,1)    say("Waffenmagie Groß Meister")
    elseif s == 2 then    gm_item.skillsett(61,6,59,1)    say("Waffenmagie Perfekt Meister")
    elseif s == 3 then    gm_item.skillsett(76,81,30,2)    say("Schwarzemagie Groß Meister")
    elseif s == 4 then    gm_item.skillsett(76,81,59,2)    say("Schwarzemagie Perfekt Meister")
    else
    return
    end
    elseif pc . job == 3 then
    local s = select("Groß Meister Drachen", "Perfekter Meister Drachen", "Groß Meister Heilung", "Perfekter Meister Heilung", "Schließen")
    if s == 1 then    gm_item.skillsett(91,96,30,1)    say("Drachen Groß Meister")
    elseif s == 2 then    gm_item.skillsett(91,96,59,1)    say("Drachen Perfekt Meister")
    elseif s == 3 then    gm_item.skillsett(106,111,30,2)    say("Heilung Groß Meister")
    elseif s == 4 then    gm_item.skillsett(106,111,59,2)    say("Heilung Perfekt Meister")
    else
    return
    end
    end
    end
    if s == 2 then
    say("Welche Ortschaft?")
    local o = select("GM Map", "Schließen")
    if o == 1 then
        say("Spinnendungeon Ebene 2")
        local ss = select("Anfang", "Gesperrt", "Schließen")
        if ss == 1 then
        say("LOS LOS, Anfang")
        wait()
        pc.warp(704100, 464100)
        end
      end
    end
    if s == 4 then    
        gm_item.landrates()    
    end 
    if s == 5 then
        gm_item.gmonline()
    end
    if s == 6 then
        gm_item.seiteeins()
    end
    if s == 7 then
        game.open_safebox()
    end
    
    send_letter("GM Panel")
end --when use ende
end --state ende
end --quest ende 
weist einer wo ich die map index 209 eintragen muss ?


Kann mir einer bei der dc helfen Kann man nach der 3 ebene direkt zu 5 ebene machen weill die 4 ebene irgenwie nicht bei mr geht die quest sicht so aus

PHP Code:
quest devilscave begin
    state start begin
--Konfiguration   
        when 20351.chat."DC Configuration!" with game.get_event_flag("block_dc_config") == 0 and pc.is_gm begin
            game.set_event_flag("dc_is_ok",1)
            game.set_event_flag("block_dc_config",1)
            game.set_event_flag("dc_versuche",1)
        end
--Eintritt fehlgeschlagen
        --when 20351.chat."The Devils Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 and pc.get_level() > 80 begin
            --say_title("Wächter der Katakombe")
            --say("")
            --say_reward("Du darfst noch nicht in die Devils Catacomb!")
            --say("")
            --say_reward("Bring mir ein Sensenmannrelikt zieh es einfach auf mich!")
            --say_reward("und du darfst Passieren!")
        --end
        --when 20351.chat."Devils Catacomb (lv.80)" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 80 begin
            --say_title("Wächter der Katakombe")
            --say("")
            --say_reward("Du bist noch zu Schwach!")
            --say("")
        --end
--Sensenmannrelikt Abgabe!
        --when 20351.take with item.vnum == 30122 and pc.getqf("can_in_dc") == 0 begin
            --if pc.get_level() < 80 then
                --say_title("Wächter der Katakombe")
                --say("")
                --say_reward("Du musst lv.80 sein um ein Sensenmannrelikt abzugeben!")
                --say("")
            --else
                --item.remove()
                --say_title("Wächter der Katakombe")
                --say("")
                --say_reward("Du darfst nun die Devils Catacomb betreten!")
                --say("")
                --pc.setqf("can_in_dc", 1)
            --end
        --end
--Eintritt    
        when 20351.chat."The Devils Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
            if pc.get_level() < 80 then 
                say_title("Wächter der Katakombe")
                say("")
                say_reward("Du bist noch zu schwach für die Katakomben!")
                say("")
            else
                say_title("Wächter der Katakombe")
                say("")
                say("Bisher haben "..game.get_event_flag("dcgamer").." Soldaten es versucht ")
                say("und "..game.get_event_flag("dc_geschaft").." haben es tatsächlich geschaft")
                say("Azrael zu besiegen!")
                wait()
                say_title("Wächter der Katakombe")
                say("")
                say_reward("Willst du es versuchen?")
                say_reward("du wärst der "..game.get_event_flag("dc_versuche")..". Kämpfer der es")
                say_reward("versucht!")
                say("")
                pc.setqf("Ebene", 1)
                local dc_login = select("Betreten", "Abbrechen")
                if dc_login == 1 then
                    pc.warp(415200, 4209200)
                elseif dc_login == 2 then
                    return
                end
            end
        end            
--Ebene 1        

        
        when login with pc.get_map_index() == 209 begin
            game.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1)
            game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1)
            if pc.getqf("Ebene") == 1 then
            say_title("Devils Catacomb")
            say("Um in die 2.Ebene zu kommen, musst du")
            say_item("Seelenkristall-Schlüssel", 30311, "") --Die "--" vor say_item entfernen wenn beim Login text das Item als Bild angezeigt werden soll das man braucht
            say("auf die Statue des Kud ziehen!")
            say("Du droppst ihn bei den Monstern.")
            say("Ihr habt ingesamt 90 Minuten Zeit!")
            say("")
            say_reward("Viel Glück!")
            say("")
            timer("dc10", 600)
            pc.setqf("sksgedroppt", 0)
        else
            warp_all_to_village()
            end
        end
        when kill with not npc.is_pc() and pc.get_map_index() == 209 begin 
            local sks = number(1,15)
            if sks==1 and pc.getqf("sksgedroppt")==0 then
                pc.setqf("sksgedroppt", 1)
                chat("Du hast den Seelenkristall-Schlüssel gedroppt!")
                game.drop_item(30311, 1)
            else
                chat("Dieses Monster hatte keinen Schlüssel.")
            end
        end
        when 30101.take with item.vnum == 30311 begin
            chat("Du wirst jetzt in die 2. Ebene gebracht.")
            pc.remove_item("30311")
            d.new_jump_all(209, 4632, 42082)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene2.txt")
            d.regen_file("data/dungeon/devilcave/dc_regen_tore_unten.txt")
            d.regen_file("data/dungeon/devilcave/dc_regen_tore_left.txt")
            d.spawn_mob(30103, 741, 221)
            d.setf("Ebene", 2)
        end    
        
        when login with pc.in_dungeon() begin
            if d.getf("Ebene") == 2 then
            chat("Ihr befindet euch jetzt in der 2. Ebene!")
            chat("Schlagt euch zum Schildkrötenfels durch!")
            chat("Ihr habt nur 10 minuten Zeit!")
            timer("dc1", 600)
        end
            if d.getf("Ebene") == 3 then
            chat("Findet und zerstört den richtigen Metin der Vergeltung.")
            chat("Ihr habt 20 Minuten Zeit.")
            timer("dc2", 1200)
        end
            if d.getf("Ebene") == 4 then
            chat("Findet den Weg aus dem Labyrinth.")
            chat("Und findet die Inschrift am Runenpfahl.")
            chat("Ihr habt 15 Minuten Zeit.")
            timer("dc3", 900)
            d.spawn_mob(30104, 500, 800)
            d.spawn_mob(10800, 328, 779)
            d.spawn_mob(10801, 70, 672)
            d.spawn_mob(10802, 142, 865)
            d.spawn_mob(10803, 433, 935)
            d.spawn_mob(10804, 243, 854)
            d.spawn_mob(10805, 182, 667)
        end
            if d.getf("Ebene") == 5 then
            chat("Findet und tötet Tartaros um das Fratzen-Totem zu bekommen!")
            chat("Zieht es anschließend auf den Basalt-Obelisk auf dem Berg.")
            chat("Ihr habt 15 Minuten Zeit.")
            timer("dc4", 900)
            d.spawn_mob(30104, 500, 800)
        end
            if d.getf("Ebene") == 6 then
            chat("Tötet Charon um zur letzten Ebene zu kommen!")
            chat("Ihr habt 15 Minuten Zeit.")
            timer("dc5", 900)
            d.spawn_mob(30104, 500, 800)
        end
            if d.getf("Ebene") == 7 then
            chat("Tötet Azrael und setzt dem Unheil ein Ende!")
            chat("Ihr habt 15 Minuten Zeit!")
            timer("dc6", 900)
            d.spawn_mob(30104, 500, 800)
        end
        end
        
        
        when dc1.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end     


        when dc10.timer begin
            chat("Ihr habt noch 80 Minuten Zeit, Azrael zu finden und zu töten!")
            timer("dc20", 600)
        end
        
        when dc20.timer begin
            chat("Ihr habt noch 70 Minuten zeit!")
            timer("dc30", 600)
        end    
        when dc30.timer begin
            chat("Ihr habt noch 60 Minuten zeit!")
            timer("dc40", 600)
        end        
        when dc40.timer begin
            chat("Ihr habt noch 50 Minuten zeit!")
            timer("dc50", 600)
        end        
        when dc50.timer begin
            chat("Ihr habt noch 40 Minuten zeit!")
            timer("dc60", 600)
        end        
        when dc60.timer begin
            chat("Ihr habt noch 30 Minuten zeit!")
            timer("dc70", 600)
        end        
        when dc70.timer begin
            chat("Ihr habt noch 20 Minuten zeit!")
            timer("dc80", 600)
        end        
        when dc80.timer begin
            chat("Ihr habt noch 10 Minuten zeit!")
            timer("dc110", 600)
        end
        when dc110.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end                     
--Ebene 2
        when 30103.chat."Weiter zur 3. Ebene" begin
            npc.purge()
            say_reward("Inschrift:")
            say("Es ist noch ein weiter weg.")
            wait()
            d.new_jump_all(209, 5427, 42282)
            d.setf("Ebene", 3)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
            local metindv = number(1,4)
            if metindv==1 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==2 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8029, 1351, 149)
            end
            if metindv==3 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8029, 1351, 149)
            end
            if metindv==4 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8029, 1351, 149) 
            end
        
        end
        
        when 8029.kill with pc.in_dungeon() begin
            chat("Ein Falscher Metin wurde zerstört.")
        end
        when 8028.kill with pc.in_dungeon() begin
            chat("Der richtige Metin wurde zerstört.")
            chat("Ihr kommt nun in die 4. Ebene.")
            timer("devils_catacomb_goto_ebene4", 2)
        end    
        when dc2.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    

        
--Ebene 4 (Labyrinth)
        when devils_catacomb_goto_ebene4.timer begin
            d.new_jump_all(209, 4143, 42657)
            d.setf("Ebene", 4)
        end
        
        when 30104.chat."Inschrift" with pc.in_dungeon() begin
            say_title("Ihr seid schon ziemlich weit gekommen.")
            timer("dc3", 6000)
            chat("Ihr habt den richtigen Weg gefunden.")
            chat("Ihr kommt jetzt in die 5. Ebene.")
            timer("devils_catacomb_goto_ebene5", 5)
        end
        when dc3.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    
--Ebene 6 (Tartaros)
        when devils_catacomb_goto_ebene5.timer begin
            d.new_jump_all(209, 4917, 42925)
            d.spawn_mob(30102, 848, 739)
            d.setf("Ebene", 5)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
            local tartaros = number(1,4)
            if tartaros==1 then
                d.spawn_mob(2593, 991, 848)
            end
            if tartaros==2 then
                d.spawn_mob(2593, 999, 652)
            end
            if tartaros==3 then
                d.spawn_mob(2593, 848, 577)
            end
            if tartaros==4 then
                d.spawn_mob(2593, 703, 644)
            end
            if tartaros==5 then
                d.spawn_mob(2593, 692, 817)
            end
        end        
        
        when 2593.kill with pc.in_dungeon() begin
            chat("Tartaros wurde besiegt und das Fratzen-Totem wurde Fallengelassen!")
            chat("Begebt euch mit dem Fratzen-Totem auf den Berg in der Mitte.")
            game.drop_item(30312, 1)
        end    
        when 30102.take with item.vnum == 30312 begin
            timer("dc4", 6000)
            item.remove()
            npc.purge()
            say_reward("...")
            chat("Ihr werdet jetzt in die 6. Ebene gebracht.")
            timer("devils_catacomb_goto_ebene6", 5)
        end
        when dc4.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    
--Ebene 7 (Charon)
        when devils_catacomb_goto_ebene6.timer begin
            d.new_jump_all(209, 5422, 42782)
            d.setf("Ebene", 6)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
        end
        
        when 2597.kill with pc.in_dungeon() begin
            timer("dc5", 6000)
            d.kill_all()
            chat("Ihr habt Charon besiegt!")
            chat("Bereitet euch auf den Kampf mit Azrael vor!")
            timer("devils_catacomb_goto_ebene7", 10)
        end
        when dc5.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
        end    
--Ebene 8 (Azrael)
        when devils_catacomb_goto_ebene7.timer begin
             d.new_jump_all(209, 4147, 43191)
            d.setf("Ebene", 7)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
        end
    
        when 2598.kill with pc.in_dungeon() begin
            game.set_event_flag(("dc_geschaft"), game.get_event_flag("dc_geschaft")+1)
            local level = pc.get_level()            
            chat("Ihr habt ihn Besiegt und das Böse vertrieben.")
            chat("Ihr werdet in 2 Minuten herrausteleportiert!")
            chat("Sammelt schnell die Schätze ein, bevor es zu spät ist.")
            d.kill_all()
            d.kill_all()
            notice_all("Die Gruppe von "..pc.get_name().." hat Azrael besiegt!")
            timer("goout_from_dc", 120)
            d.spawn_mob(9012, 74, 1159)    
        end
        
        when dc6.timer begin
            chat("Die Zeit ist Abgelaufen!")
            warp_all_to_village( pc.get_map_index() , 5 )
            end
        when goout_from_dc.timer begin
            warp_all_to_village( pc.get_map_index() , 3 )
            end
    end
end 
05/30/2014 13:35 xfantix1#10259
Ich habe den Quest richtig eingefügt, leider weis ich nicht, warum dieser
nicht gehen will. Kann mir vielleicht einer hier helfen :/


PHP Code:
quest main_quest_lv10 begin
        state start begin
        end
        state run begin
                when login or levelup with pc.get_level() == 1 begin
                                set_state( gotoboss )
                end

        end
        state gotoboss begin
                when letter begin
                        send_letter("Begib dich zum Hauptmann.")
                        local v=find_npc_by_vnum(20355)
                        if 0==v then
                        else
                                target.vid("__TARGET__", v, "Go to the Captain.")
                        end
                end
                when button or info begin
                        say_title("Begib dich zum Hauptmann.")
                        say("")
                        say_reward("Du hast nun genug Erfahrung um")
                        say_reward("Auftraege vom Hauptmann zu erhalten.")
                        say_reward("Du wirst ihn im ersten Dorf finden.")
                        say_reward("Geh zu ihm, er wartet auf dich.")
                        say("")
                end
                when __TARGET__.target.click begin
                        target.delete("__TARGET__")
                        say_title("Hauptmann:")
                        say("")
                        say("Du wirkst vertraut....")
                say("Ah natuerlich, ich glaube ich habe von dir gehoert.")
                        say("Du bist der neue Abenteuer. Du hast")
                        say("gut daran getan, deine Fertigkeiten zu trainieren.")
                        say("Ich weis noch nicht wie geuebt du bist,")
                        say("aber das wird mit einigen Auftraegen getestet werden.")
                        say("")
                        wait()

                        say_title("Hauptmann:")
                        say("")
                        say("Es wird einige Herausforderungen fuer dich geben,")
                        say("also sei auch dafuer bereit.")
                        say("Kennst du die Geschichte der drei Koenigreiche?")
                        say("Oder die Geschichte des Kontinets Lightning Heaven?")
                        say("Du kennst sie nicht!?")
                        say("Was lehren die Lehrer zur Zeit nur?")
                        say("Muss ich dir solch fundamentale Dinge beibringen?")
                        say("")
                        wait()

                        say_title("Hauptmann:")
                        say("")
                        say("Das ist sehr wichtig, daher werde ich es ein Mal")
                        say("zusammenfassen, also hör gut zu!")
                        say("Einst gab es ein vereintes Koenigreich.")
                        say("Als die Metin Steine erschienen spaltete")
                        say("sich das Reich in 3 Teile:")
                        say("Shinsoo, das Koenigreich des Handels,")
                        say("Chunjo, das Koenigreich der Religion,")
                        say("und Jinno, das Militaer Koenigreich.")
                        say("")
                        wait()

                        say_title("Hauptmann:")
                        say("")
                        say("Jedes der Koenigreiche versucht sich von dem,")
                        say("durch die Metin Steine enstandem, Chaos zu erholen.")
                        say("Sie veruchen alle das Reich erneut zu vereinen.")
                        say("Auch du musst fuer die Wiedervereinigung er Reiche")
                        say("kaempfen! Es ist wichtig, dass du das niemals")
                        say("vergisst.")
                        wait()

                        say_title("Hauptmann:")
                        say("")
                        say("Ich werde dir die erste Aufgabe geben.")
                        say("Entspann dich, sie ist einfach.")
                        say("Im naechsten Dorf wirst du einen Musiker")
                        say("namens Yu-Hwan finden.")
                say("Die Leute glauben, er hat die Armee")
                        say("verlassen um Musiker zu werden.")
                        say("In Wirklichkeit ist er ein Spion.")
                        say("Ich benoetige ein Dokument von Yu-Hwan.")
                        say("Bring es zu mir.")
                        say("Vergiss nicht, dass diese Mission der Geheimhaltung unterliegt.")
                        say("")
                        wait()

                        say_title("Hauptmann:")
                        say("")
                        say("Druecke M (Karte) um herauszufinden,")
                        say("wie du zum naechsten Dorf reisen kannst.")
                        say("Nutze das Portal, welches als blauer Punkt angezeigt wird.")
                        say("Bring mir diese Dokumente!")
                        say("Yu-Hwan ist der grosse Kerl,")
                        say("mit dem Instrument.")
                        say("")
                        say_title("Belohnung:")
                        say("")
                        say_reward("Erfahrung: 5000")
                        say_reward("Yang: 2000")
                        say("")
                        set_state(gotomusition)
                end
        end

        state gotomusition begin
                when letter begin
                        local v=find_npc_by_vnum(20017)
                        if 0==v then
                        else
                                target.vid("__TARGET__", v, "Visit the musician Yu-Hwan.")
                        end
                end
                when letter begin
                        send_letter("Besuche Yu-Hwan, den Musiker.")
                end
                when button or info begin
                        say_title("Mission des Hauptmanns")
                        say("")
                        say_reward("Rede mit Yu-Hwan.")
                end
                when __TARGET__.target.click begin
                        target.delete("__TARGET__")
                        say_title("Yu-Hwan der Musiker:")
                        say("")
                        ----"12345678901234567890123456789012345678901234567890"|
                        say("Das Leben ist ein Traum, wie alles im Leben.")
                        say("Wo kommen wir her und wo gehen wir hin?")
                        say("Die Welt is voller Konflikte.")
                        say("Ehrliche Arbeit zahlt sich nie aus.")
                        say("Bist du hier um einem Lied zu lauschen?")
                        say("")
                        wait()

                        say_title("Yu-Hwan der Musiker:")
                        say("")
                        ----"12345678901234567890123456789012345678901234567890"|
                        say("Ohh, der Hauptmann schickt dich!")
                        say("Psst, sprich leise...")
                        say("Niemand im Dorf soll meine wahre")
                        say("Identitaet erfahren.")
                        say("Du musst vertrauenswuerdig sein, wenn du von mir weisst.")
                        say("Hier, diese Dokumente enthalten alle")
                        say("Informationen, die ich sammeln konnte.")
                        say("Bring sie zum Hauptmann.")
                        say("")
                        wait()

                        say_title("Yu-Hwan der Musiker:")
                        say("")
                        ----"12345678901234567890123456789012345678901234567890"|
                        say("Beeil dich! Wenn du zu lange hier bleibst")
                        say("wird irgendetwas schlimmes passieren.")
                        say("Was ist Leben? Leben ist kurz.")
                        say("Geniesse es, solange du kannst.")
                        say("")
                        set_state(gotoboss2)
                end
        end
        state gotoboss2 begin
                when letter begin
                        local v=find_npc_by_vnum(20355)
                        if 0==v then
                        else
                                target.vid("__TARGET__", v, "Return to the Captain.")
                        end
                end
                when letter begin
                        send_letter("Kehre zum Hauptmann zurueck.")
                end
                when button or info begin
                        say_title("Mission des Hauptmanns")
                        say("")
                        say_reward("Rede mit dem Hauptmann.")
                        say("")
                end
                when __TARGET__.target.click begin
                        target.delete("__TARGET__")

                        say_title("Hauptmann:")
                        say("")
                        say("Das sind die Dokumente des Musikers?")
                        say("Nicht schlecht fuer einen neuen!")
                        say("Ich setze grosse Erwartungen in dich.")
                        say("Nimm dies als Belohung fuer deine Arbeit.")
                        say("Arbeite weiter so hart fuer das Reich.")
                        say("")
                        say_title("Belohnung:")
                        say("")
                        say_reward("Erfahrung: 5000")
                        say_reward("Yang: 2000")
                        say("")
                        pc.give_exp2( 5000 )
                        pc.change_money( 2000 )
                        say("")
                        clear_letter()
                        set_state( __COMPLETE__ )
                        set_quest_state("main_quest_lv12", "run")
                end
        end
        state __COMPLETE__ begin
        end
end 
05/30/2014 14:03 .HC'Destrox#10260
@xfantix1:
Lösch mal den state "start" und ändere den Namen vom state "run" in "start". Dann sollte es gehen (warum: state "start" wird immer als 1. state aufgerufen und da er dort nichts tut kommt er niemals in den state "run". Daher muss der state "run" "start" heißen).

Kind Regards
Page 684 of 845 « First 184584634674682683 684 685686694734784 Last »