[SERVICE] Die Questkontrolle

Page 196 of 845 « First 96146186194195 196 197198206246296696 Last »
08/01/2011 17:19 körper7#2926
PHP Code:
quest Zweineueitems begin
state start begin
when login with pc.level >= 100 begin
set_state(information)
end
end

state information begin
when letter begin
send_letter("Zwei Neue Items")
end

when info or button begin
say("Zwei Neue Items")
say("Gute Arbeit, lieber Spieler")
say("Da du nun soweit bist, kannst du von mir rare Items erhalten!")
say_reward("Töte 30x den Sensenmann")
say("")
pc.setqf("state", 30)
q.set_counter("Sensenmann", 30)
end

when 1093.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Sensenmann", count)
end
if count == 0 then
say_title("Zwei Neue Items")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("Du erhälst:")
say_reward("Pferdezucker")
say_reward("und")
say_reward("Ring der Nachfolge")
pc.give_item2(71110, 1)
pc.give_item2(71099, 1)
clear_letter()
set_state(__COMPLETE__)

end
end
end

state __COMPLETE__ begin
end
end 
Werden keine kills abgezogen.
08/01/2011 17:21 .Delta#2927
Quote:
Originally Posted by körper7 View Post
PHP Code:
quest Zweineueitems begin
state start begin
when login with pc.level >= 100 begin
set_state(information)
end
end

state information begin
when letter begin
send_letter("Zwei Neue Items")
end

when info or button begin
say("Zwei Neue Items")
say("Gute Arbeit, lieber Spieler")
say("Da du nun soweit bist, kannst du von mir rare Items erhalten!")
say_reward("Töte 30x den Sensenmann")
say("")
pc.setqf("state", 30)
q.set_counter("Sensenmann", 30)
end

when 1093.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Sensenmann", count)
end
if count == 0 then
say_title("Zwei Neue Items")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("Du erhälst:")
say_reward("Pferdezucker")
say_reward("und")
say_reward("Ring der Nachfolge")
pc.give_item2(71110, 1)
pc.give_item2(71099, 1)
clear_letter()
set_state(__COMPLETE__)

end
end
end

state __COMPLETE__ begin
end
end 
Werden keine kills abgezogen.
Liegt ganz einfach daran, dass du den Sensenmann schon im DT killen musst, und die Quests ist dauerhaft aktiv.
Such dir einen anderen MOB aus, der nicht schon in einer anderen Quest in Gebrauch ist, dann sollte das auch funktionieren.
08/01/2011 17:46 WeltRaumSchwein™#2928
Meine Quest funkioniert nicht =D bitte brauche mal hilfe .. ;D

PHP Code:

quest Berg_Run_quest begin
    state start begin
        when 20092.chat."Berg Run betretten" begin
        say_title("Wächter vom Berg Run")
        say("Möchtes du am Berg Run teil nehmen ?")
        say("")
        local s=select("Klar!","Ne, kein bock")
          if s==1 then
          pc.warp (4444, 4444)
        elseif s==2 then
        say("Dachte ich mir schon!")
        say("Bis später!")
            return
     end
        d.jump_all(54, 213)
            when 8025.kill with pc.get_map_index()>= 6 and pc.get_map_index() < 6 begin
            d.notice("Du hast den Heiligen Metin-Gekillt")
            d.notice("Du Kommst nun auf die Zweite Insel")
            d.jump_all(7896, 7855)
            when 8023.kill with pc.get_map_index()>= 6 and pc.get_map_index() < 6 begin
            d.notice("Du hast den zweiten Metin besiegt")
            d.notice("Du Kommst nun auf die Boss Insel")
            d.notice("Aber Vorschit dort sind starke Monster ...")
        end
            d.jump_all(131, 134)
            when 1093.kill with pc.get_map_index()>= 6 and pc.get_map_index() < 6 begin
            d.notice("Du hast den Berg-Run erfolgreich gemeistert")
            d.notice("Dein Reicht erhält nun 200% Rates")
            local empire = pc.get_empire()
                if empire == 1 then 
                    pc.warp(474300,954800) 
                elseif empire == 2 then 
                    pc.warp(63800,166400) 
                elseif empire == 3 then 
                   pc.warp(959900,269200) 
            end
            end
        end
end 
08/01/2011 18:38 .Metz#2929
Quote:
Originally Posted by .Metz View Post
Ich habe ne Frage könntet ihr mir sagen ob das geht?

Also ich habe folgende Quest:
quest boar begin
state start begin
when 71114.use begin
chat("Du hast dein Keiler gerufen!")
pc.mount(20110)
affect.add_collect(apply.DEF_GRADE_BONUS,50,1800)
affect.add_collect(apply.ATT_GRADE_BONUS,50,1800)
affect.add_collect(apply.EXP_GRADE_BONUS,50,1800)
end
end
end

Kann man irgendwie machen wenn man absteigt das die Bonis automatisch verschwinden? Ich will kein zusätzliches Item benutzten!

Bitte mal nach gucken
08/01/2011 20:30 demoro123456789#2930
Quote:
Originally Posted by .Delta View Post
PHP Code:
quest horse_menu begin
    state start begin
        function horse_menu()
            if horse.is_mine() then
                say_title("Pferdehandbuch")
                say("Das Handbuch für das Pferd")
                say("")
                local s = 7
                if horse.is_dead() then
                    s = select( "Zurückholen des Pferde", "Das Pferd zurück geben", "Schließen")
                    if s == 1 then s = 0
                    elseif s == 2 then s = 3
                    elseif s == 3 then return
                    end
                else
                    s = select(
                    "Pferd füttern", "Pferd reiten", "Das Pferd zurückgeben", "Status des Pferdes anzeigen", 
                    "Pferd einen Namen geben", "Reichsteleporter", "Schließen")
                end
                if s == 0 then
                    horse.revive()
                elseif s == 1 then
                    local food = horse.get_grade() + 50054 - 1
                    if pc.countitem(food) > 0 then
                        pc.removeitem(food, 1)
                        horse.feed()
                    else
                        say("Das Item "..item_name(food).." wird benötiogt.")
                        say("")
                    end
                elseif s == 2 then
                    horse.ride()
                elseif s == 3 then
                    horse.unsummon()
                elseif s == 4 then
                    say_title("Pferdestatus")
                    say("Momentane Lebenspunkte des Pferdes: "..horse.get_health_pct().."%")
                    say("Momentane Ausdauer des Pferdes: "..horse.get_stamina_pct().."%")
                    say("")
                elseif s == 5 then
                    if pc.countitem("71110") <= 0 then
                        say("Das Item "..item_name("71110").." wird benötigt.")
                        say("")
                        return
                    end
                    local old_horse_name = horse.get_name() ;
                    say_title("Pferdename")
                    say("Hier kannst du deinem Pferd einen neuen")
                    say("Namen geben. Damit kannst du dein Pferd")
                    say("über alle anderen hervorheben.")
                    say("")
                    if string.len(old_horse_name) == 0 then
                        say_reward("Das Pferd besitzt bis jetzt keinen Namen.")
                    else
                        say_reward("Der momentane Name des Pferdes lautet "..old_horse_name..".")
                    end
                    say("")
                    say("Wähle einen neuen Pferdenamen:")
                    say("")
                    local horse_name = input()
                    if string.len(horse_name) < 2 then
                        say_title("Pferdename")
                        say("Der Name ist zu kurz.")
                        say("")
                        return
                    elseif string.len(horse_name) > 12 then
                        say_title("Pferdename")
                        say("Der Name ist zu lang.")
                        say("")
                        return
                    end
                    local ret = horse.set_name(horse_name)
                    say_title("Pferdename")
                    if ret == 0 then
                        say_reward("Du hast momentan kein Pferd!")
                        say("")
                    elseif ret == 1 then
                        say_reward("Du kannst diesen Namen nicht benutzen!")
                        say("")
                    elseif ret == 2 then
                        pc.remove_item("71110")
                        say("Du hast deinem Pferd einen neuen Namen gegeben!")
                        say("")
                    end
                elseif s == 6 then
                    local map=pc.get_map_index()
                    local warp=0
                    local s=0
                    local check=0
                    say("Wohin möchtest du?")
                    if map!=1 and map!=21 and map!=41 then
                        check=1
                        s=select("Rotes Reich", "Gelbs Reich", "Blaus Reich", "Abbrechen")
                        warp=s
                        if s==4 then
                            return
                        end
                    end
                    if map==1 then
                        s=select("Gelbs Reich", "Blaus Reich", "Abbrechen")
                        if s==1 then
                            warp=2
                        elseif s==2 then
                            warp=3
                        end
                    elseif map==21 then
                        s=select("Rotes Reich", "Blaues Reich", "Abbrechen")
                        if s==1 then    
                            warp=1
                        elseif s==2 then
                            warp=3 
                        end
                    elseif map==41 then
                        s=select("Rotes Reich", "Gelbes Reich", "Abbrechen")
                        warp=s
                    end
                    if s==3 and check==0 then
                        return
                    end
                    if warp==1 then
                        pc.warp(474200, 954400)
                    elseif warp==2 then
                        pc.warp(63200, 166100)
                    elseif warp==3 then
                        pc.warp(960100, 268700)
                    end
                else
                    return
                end
            end
        end
        when 20030.click begin horse_menu.horse_menu() end
        when 20101.click begin horse_menu.horse_menu() end
        when 20102.click begin horse_menu.horse_menu() end
        when 20103.click begin horse_menu.horse_menu() end
        when 20104.click begin horse_menu.horse_menu() end
        when 20105.click begin horse_menu.horse_menu() end
        when 20106.click begin horse_menu.horse_menu() end
        when 20107.click begin horse_menu.horse_menu() end
        when 20108.click begin horse_menu.horse_menu() end
        when 20109.click begin horse_menu.horse_menu() end
    end
end 
€:
PHP Code:
----------------------------------
--U&#382;ivatelský prsten by Demoro
----------------------------------
quest uzivatelskyprsten begin
    state start begin
        when 9007.chat begin
            say("Ahoj!")
            say("Co potrebujes?")
            local main = select("Zakoupit BZK","Teleport do risi","Promena")
            if main == 1 then
----------------------------------
--Zakoupeni expu
----------------------------------
                local zakoupeniexpu = select("10.000.000 BZK - 10kk Yang","20.000.000 BZK - 20kk Yang","50.000.000 BZK - 50kk Yang","100.000.000 BZK - 100kk Yang","Zpet")
                if zakoupeniexpu == 1 then
                    if pc.money<10000000 then
                        say("Bohuzel nemas 10kk Yang!")
                    else
                        pc.changemoney(-10000000)
                        pc.give_exp2(10000000)
                        notice_all(pc.get_name().." si zakoupil 10.000.000 BZK!")
                    end
                elseif zakoupeniexpu == 2 then
                    if pc.money<20000000 then
                        say("Bohuzel nemas 20kk Yang!")
                    else
                        pc.changemoney(-20000000)
                        pc.give_exp2(20000000)
                        notice_all(pc.get_name().." si zakoupil 20.000.000 BZK!")
                    end
                elseif zakoupeniexpu == 3 then
                    if pc.money<50000000 then
                        say("Bohuzel nemas 50kk Yang!")
                    else
                        pc.changemoney(-50000000)
                        pc.give_exp2(50000000)
                        notice_all(pc.get_name() .." si zakoupil 50.000.000 BZK!")
                    end
                elseif zakoupeniexpu == 4 then
                    if pc.money<100000000 then
                        say("Bohuzel nemas 100kk Yang!")
                    else
                        pc.changemoney(-100000000)
                        pc.give_exp2(100000000)
                        notice_all(pc.get_name() .." si zakoupil 100.000.000 BZK!")
                    end
                elseif zakoupeniexpu == 5 then
                    return
                end
-----------------------------
--Teleport do risi
-----------------------------
            elseif main == 2 then
                say_title("Teleportujici prsten")
                say("")
                say("Tento prsten te muze teleportovat ")
                say("do trech zakladnich mest.")
                say("")
                say("Kam chces tedy teleportovat? ")
                say("")
                local port=select("Yongan", "Joan", "Pyungmoo", "Zpet")
                if port==1 then
                    pc.warp(474300,954800)
                elseif port==2 then
                    pc.warp(63800,166400)
                elseif port==3 then
                    pc.warp(959900,269200)
                elseif port ==4
                    return
                end
----------------------------
--Promena
----------------------------
            elseif main == 3 then
                say("Chces se v nekoho promenit?")
                say("Promena trva 10 minut!")
                say_reward("Sluzba je zdarma!")
                local s=select("Divoky poddany" , "Pavoucek" , "Tmavy fanatik" , "Duch mistra mece" , "Zpet v sebe" , "Zpet")
                if s==1 then
                    pc.polymorph(502, 600)
                elseif s==2 then
                    pc.polymorph(2001, 600)
                elseif s==3 then
                    pc.polymorph(701, 600)
                elseif s==4 then
                    pc.polymorph(1068, 600)
                elseif s==5 then
                    pc.polymorph(1)
                elseif s==6 then
                    return
                end
            end
        end
    end
end 
Syntax error:

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


And this quest please (sorry to my EN,DE)

PHP Code:
--------------------------------------------------------------------------------------------
------------------------------------ quest by xDeStRuCtx -----------------------------------
-------------------------------------- Edited by ziuto -------------------------------------
---------------------------------------- lotek quest ---------------------------------------
--------------------------------------------------------------------------------------------
quest lotek begin
state start begin
when 20093.chat."Loterie" begin
if get_time() >= pc.getqf("tajm") then
say_title("Vitam " .. pc . name .. "")
say("[ENTER]Chces si vsadit v lotto ?[ENTER]")
local s=select("Ano", "Ne")
if s==1 then
say_title("Krupier:")
say("[ENTER]Aby jsi si mohl vsadit ,[ENTER]je treba zaplatit 2000000 Yang.")
say("Vsadit si muzes kazdy 2 hodiny.")
say("Cisla musi byt od 1 do 36.")
say("Aby jsi vyhral, je treba trefit alespon 3 cisla.")
say("Muzete vyhrat spoustu Yangu.")
say("[ENTER]Chces si vsadit ?[ENTER]")
local s=select("Ano", "Nebudu riskovat")
if s==1 then
if pc.money<20000000 then
say_title("Krupier:")
say("[ENTER]Nemas 20000000 Yang.[ENTER]")
else
pc.setqf("juz", 1)
pc.changemoney(-20000000)
say_title("Krupier:")
say("[ENTER]A nyni ,[ENTER]napis cisla, na ktere si chces vsadit,[ENTER] ale musi byt v rozmezi 1 - 36.[ENTER]")
wait()
say_title("Napis")
say("[ENTER]Cislo 1 :[ENTER]")
local jeden = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 2 :[ENTER]")
local dwa = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 3 :[ENTER]")
local trzy = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 4 :[ENTER]")
local cztery = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 5 :[ENTER]")
local piec = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 6 :[ENTER]")
local szesc = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 7 :[ENTER]")
local sedm = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 8 :[ENTER]")
local osm = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 9 :[ENTER]")
local devet = tonumber(input(""))
say_title("Napis")
say("[ENTER]Cislo 10 :[ENTER]")
local deset = tonumber(input(""))
local jeeden = number(1, 36)
local dwaa = number(1, 36)
local trzyy = number(1, 36)
local czteryy = number(1, 36)
local pieec = number(1, 36)
local szescc = number(1, 36)
local sedmm = number(1, 36)
local osmm = number(1, 36)
local devett = number(1, 36)
local desett = number(1, 36)
say_title("Krupier:")
say("[ENTER]Tvoje cisla:[ENTER]")
say_reward(jeden.." , "..dwa.." , "..trzy.." , "..cztery.." , "..piec.." , "..szesc.." , "..sedm.." , "..osm.." , "..devet.." , "..deset..")
say("[ENTER]Vylosovane cisla :[ENTER]")
say_reward(jeeden.." , "..dwaa.." , "..trzyy.." , "..czteryy.." , "..pieec.." , "..szescc.." , "..sedmm.." , "..osmm.." , "..devett.." , "..desett.."[ENTER]")
if jeden == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end



if sedm == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if edm == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if sedm == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end


if osm == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if osm == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end


if devet == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if devet == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end

if deset == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == sedmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == osmm then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == devett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if deset == desett then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
wait()
say_title("Krupier:")
local aaa = number(10000000, 20000000)
local bbb = number(50000000, 100000000)
local ccc = number(200000000, 500000000)
local ddd = number(1000000000, 1999999999)
if pc.getqf("ilosc")==0 then
say("[ENTER]Bohuzel jsi netrefil ani 1 cislo ![ENTER]")
end
if pc.getqf("ilosc")==1 then
say("[ENTER]Trefil jsi 1 cislo.[ENTER]")
end
if pc.getqf("ilosc")==2 then
say("[ENTER]Trefil jsi 2 &#269;ísla.[ENTER]")
end
if pc.getqf("ilosc")==3 then
say("[ENTER]Trefil(a) jsi 3 cisla.[ENTER]")
say_reward("Vyhráváš "..aaa.." Yang.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) 3 cisla a vyhral(a) "..aaa.." Yang!")
notice_all("Gratulujeme!")
pc . change_money(aaa)
end
if pc.getqf("ilosc")==4 then
say("[ENTER]Trefil(a) jsi 4 cisla.[ENTER]")
say_reward("Vyhravas "..bbb.." Yang.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) 4 cisla a vyhral(a) "..bbb.." Yang!")
notice_all("Gratulujeme!")
pc . change_money(bbb)
end
if pc.getqf("ilosc")==5 then
say("[ENTER]Trefil(a) jsi 5 cisel.[ENTER]")
say_reward("Vyhravas "..ccc.." Yang.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) 5 cisel a vyhral(a) "..ccc.." Yang!")
notice_all("Gratulujeme!")
pc . change_money(ccc)
end
if pc.getqf("ilosc")==6 then
say("[ENTER]Trefil(a) jsi 6 cisel.[ENTER]")
say_reward("Vyhravas "..ddd.." Yang.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) vsechny cisla a vyhral(a) "..ddd.." BZK!")
notice_all("Gratulujeme!")
pc . change_money(ddd)


if pc.getqf("ilosc")==7 then
say("[ENTER]Trefil(a) jsi 7 cisel.[ENTER]")
say_reward("Vyhráváš "..aaa.." BZK.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) 3 cisla a vyhral(a) "..aaa.." BZK!")
notice_all("Gratulujeme!")
pc . give_exp2(aaa)
end
if pc.getqf("ilosc")==8 then
say("[ENTER]Trefil(a) jsi 8 cisel.[ENTER]")
say_reward("Vyhravas "..bbb.." BZK.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) 4 cisla a vyhral(a) "..bbb.." BZK!")
notice_all("Gratulujeme!")
pc . give_exp2(bbb)
end
if pc.getqf("ilosc")==9 then
say("[ENTER]Trefil(a) jsi 9 cisel.[ENTER]")
say_reward("Vyhravas "..ccc.." BZK.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) 5 cisel a vyhral(a) "..ccc.." BZK!")
notice_all("Gratulujeme!")
pc . give_exp2(ccc)
end
if pc.getqf("ilosc")==10 then
say("[ENTER]Trefil(a) jsi vsechny cisla![ENTER]")
say("Gratulujeme.[ENTER]")
say_reward("Vyhravas "..ddd.." BZK.[ENTER]")
notice_all(" ".. pc.get_name() .." trefil(a) vsechny cisla a vyhral(a) "..ddd.." BZK!")
notice_all("Gratulujeme!")
pc . give_exp2(ddd)
end
end
pc.setqf("ilosc", 0)
pc.setqf("tajm", get_time()+300)
elseif 2==s then
say_title("Krupier:")
say("[ENTER]Tak ok mno....[ENTER]")
end
elseif 2==s then
say_title("Krupier:")
say("[ENTER]Ne to ne.[ENTER]")
end
else
say_title("Krupier:")
say("[ENTER]Muzes si vsadit kazdych 5 minut![ENTER]")
end
end
end
end 
08/01/2011 23:26 .Nguyen#2931
PHP Code:
quest handelsmap begin
    state start begin
        when 50027.use begin
            say("Wohin möchtest du reisen?    ")
            local s = select("Pyungmoo", "Yongan", "Joan","Abbrechen")
            if s == 1 then
                say("Achtung, du wirst teleportiert.")
                wait()
pc.warp(383,640)
            elseif s == 2 then
                say("Achtung, du wirst teleportiert.")
                wait()
pc.warp(647,582)
            elseif s == 3 then
                say("Achtung, du wirst teleportiert.")
                wait()
pc.warp(633,640)
            else s == 4 then
say("Du wirst nicht teleportiert.")
say("Auf wiedersehen Noob.")
wait()
end
            return
        end
    end
end 
Auf Richtigkeit prüfen, posted for SoLow :>

Frage am Rande, wie gebe ich jetzt einen Item in der db die Funktion dazu?
Den wenn ich Rechtsklick aufs Item mache passiert nichts kein Fenster erscheint.
08/02/2011 00:34 Sp0ngeb0b ist cool#2932
Hier(bin mir zwar nicht sicher aber sollte gehen):
PHP Code:
quest handelsmap begin
    state start begin
        when 50027.use begin
            say("Wohin möchtest du reisen?")
            local s = select("Pyungmoo", "Yongan", "Joan","Abbrechen")
            if s == 1 then
                say("Achtung, du wirst teleportiert.")
                wait()
                pc.warp(383,640)
            elseif s == 2 then
                say("Achtung, du wirst teleportiert.")
                wait()
                pc.warp(647,582)
            elseif s == 3 then
                say("Achtung, du wirst teleportiert.")
                wait()
                pc.warp(633,640)
            end    
            if s == 4 then
                say("Du wirst nicht teleportiert.")
                say("Auf wiedersehen Noob.")
                wait()
                return
            end
        end
    end
end 
Ehm..player-->item_proto-->gewünschtes Item suchen-->type auf 18 stellen
08/02/2011 11:29 lolkake2#2933
Der Warpring geht nach 1x benutzen weg >.< der soll für immer bleiben.
Quest



Danke
08/02/2011 11:44 .Nguyen#2934
PHP Code:
quest warpring begin
state start begin
when 70007.use with pc.get_level() >= 10 begin 
say_title("Ring:")
say("Dies ist eine faszinierende Gegend. Aber")
say("passiert hier denn auch mal etwas")
say("Außergewöhnliches? Eher wohl nicht. In anderen")
say("Teilen des Landes sieht es mitunter ganz anders.")
say("aus! Es gibt daher sicher einen intressanten")
say("Ort, an den ich dich teleportieren könnte. Da")
say("jedoch die Kräfte des Bösen wieder stärker")
say("geworden sind, wurden Raum und Zeit ins Chaos")
say("gestürzt. Dadurch kann es passieren, dass deine")
say("Rückkehr nicht immer augenblicklich funktioniert.")
say("Möchtest du dennoch teleportiert werden?")

local main_set = select("Ja","Nein")
if main_set == 2 then
return
end

if pc.get_level() <= 10 then
say_title("Ring:")
say("Hm… Mit deinem derzeitigen Level bist du noch")
say("zu schwach für die Reise durch Zeit und Raum.")
say("Komm wieder, wenn du höher als Level 10 bist.")
return
end

local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()

say_title("Ring:")
say("Wohin möchtest du teleportiert werden?")

-- ?? ?? ???? ?? ?? (? ?? 1,2 ??)
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then

local guild_map_names = {
"Gildenzone",
"Gildenzone",
"Gildenzone",
}

guild_map_name = guild_map_names[empire]
local empire_castle={
"Burgschlacht",
"Burgschlacht",
"Burgschlacht",
}
empire_castle =empire_castle[empire]
local sub_set = 0
if level < 60 then -- 60?? : ?????, ???, ????, ???
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
return
end

else -- 61?? : ????, ???, ????, ????
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
sub_set = select("Doyyumhwaji", "Dämonenturm", "Zurück", "Abbrechen") + 5
if sub_set == 9 then -- ??
return
end
if sub_set == 8 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
--- l
sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-Wüste", "Berg Sohan", empire_castle,"Andere Gebiete")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Wohin möchtest du teleportiert werden?")
sub_set = select("Doyyumhwaji", "Dämonenturm", "Abbrechen") + 5
if sub_set == 8 then -- ??
return
end
end
end
end
end


local warp = {
-- guild_map
{
{ 128500, 1000 },
{ 179500, 1000 },
{ 271800, 13000 },
},
-- 64 map_n_threeway
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
-- 63 metin2_map_n_desert_01
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
-- 61 map_n_snowm_01
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
--empire_castle
{
{975200, 133000},
{977200, 185000},
{923900, 183600},

} ,
-- 62 metin2_map_n_flame_01
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
-- devil_tower
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
}
test_chat(warp[sub_set][empire][1]..warp[sub_set][empire][2])
say_title("Ring:")
say("Achtung, ich teleportiere dich jetzt. Du wirst")
say("an einem gefährlichen Ort landen, also pass auf")
say("dich auf. Viel Glück!")
wait()
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])


else -- ? ?? 1,2 ? ??? ?????? ? ?? 1,2 ? ??? ?? ?? 
local sub_set2 = 3

--sub_set2 = select(locale.vileage1_name[empire], locale.vileage2_name[empire], locale.cancel)
if empire==1 then 
sub_set2 = select("Yongan","Jayang" , locale.cancel)
elseif empire ==2 then 
sub_set2 = select("Joan","Bokjung" , locale.cancel)
elseif empire ==3 then 
sub_set2 = select("Pyungmoo","Bakra" , locale.cancel)
end 
if sub_set2 != 3 then
if sub_set2 == 1 then
say_title("Ring:")
say("Ich teleportiere dich dorthin.")
wait()

if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end 
elseif sub_set2 == 2 then
say_title("Ring:")
say("Ich teleportiere dich dorthin.")

wait()
if empire == 1 then
pc.warp(353100,882900)
elseif empire == 2 then
pc.warp(145500,240000)
elseif empire == 3 then
pc.warp(863900,246000)
end 
end -- end sub set check2 if
end -- end sub set check1 if
end -- end map check if
end -- end when use item
end -- end state start
end -- end quest warpring 
Müsste so gehn denke ich ma :>
08/02/2011 12:06 lolkake2#2935
es geht habs selber gelöst.
08/02/2011 14:41 .Nguyen#2936
Quote:
Originally Posted by Sp0ngeb0b ist cool View Post
Hier(bin mir zwar nicht sicher aber sollte gehen):
PHP Code:
quest handelsmap begin
    state start begin
        when 50027.use begin
            say("Wohin möchtest du reisen?")
            local s = select("Pyungmoo", "Yongan", "Joan","Abbrechen")
            if s == 1 then
                say("Achtung, du wirst teleportiert.")
                wait()
                pc.warp(383,640)
            elseif s == 2 then
                say("Achtung, du wirst teleportiert.")
                wait()
                pc.warp(647,582)
            elseif s == 3 then
                say("Achtung, du wirst teleportiert.")
                wait()
                pc.warp(633,640)
            end    
            if s == 4 then
                say("Du wirst nicht teleportiert.")
                say("Auf wiedersehen Noob.")
                wait()
                return
            end
        end
    end
end 
Ehm..player-->item_proto-->gewünschtes Item suchen-->type auf 18 stellen
Funktioniert immernoch nicht :>
08/02/2011 15:43 Pаylasici#2937
Quote:
Originally Posted by körper7 View Post
PHP Code:
quest Zweineueitems begin
state start begin
when login with pc.level >= 100 begin
set_state(information)
end
end

state information begin
when letter begin
send_letter("Zwei Neue Items")
end

when info or button begin
say("Zwei Neue Items")
say("Gute Arbeit, lieber Spieler")
say("Da du nun soweit bist, kannst du von mir rare Items erhalten!")
say_reward("Töte 30x den Sensenmann")
say("")
pc.setqf("state", 30)
q.set_counter("Sensenmann", 30)
end

when 1093.kill begin
local count = pc.getqf("state") - 1
if count <= 30 then
pc.setqf("state", count)
q.set_counter("Sensenmann", count)
end
if count == 0 then
say_title("Zwei Neue Items")
say("Du hast die Quest erfolgreich abgeschlossen!")
say("Du erhälst:")
say_reward("Pferdezucker")
say_reward("und")
say_reward("Ring der Nachfolge")
pc.give_item2(71110, 1)
pc.give_item2(71099, 1)
clear_letter()
set_state(__COMPLETE__)

end
end
end

state __COMPLETE__ begin
end
end 
Werden keine kills abgezogen.
Eine "KILL" Funktion, kann nur einmal einem Monster zugewiesen werden. Da es schon im Dämonenturm zugewiesen wird, wird der jeweilige Quellcode-Abschnitt von dir einfach ignoriert.
08/02/2011 16:54 Sp0ngeb0b ist cool#2938
@.nguyen: kommt in vpc ne fehlermeldung?

mfg sp0nge
08/02/2011 19:12 Event150#2939
PHP Code:
quest player_kill1 begin
    state start begin
        when login with pc.level >= 100 begin
            set_state(player_kill1)
        end
    end

    state player_kill1 begin
        when letter begin
            send_letter("Töte Gegner aus anderen Reichen")
        end

        when button or info begin
            say("Es wird Zeit dass du zeigst")
            say("was in dir steckt!")
            say("Zeige es uns indem du 500")
            say("Spieler aus anderen Reichen tötest!")
            say_reward("Töte 500 andere Spieler aus anderen Reichen!")
            say("")
            pc.setqf("state", 0)
            q.set_counter("kills", 500)
            set_state (kill1)
        end
    end
      
        state kill1 begin
        when letter begin
           send_letter("Elite Rang 1")
        end
        
        when button or info begin
            say_title("Spieler:")
            say_reward( "Du musst noch ".." "..pc.getqf("state").."von 500 töten")
            say("")
        end

        when kill begin
            if npc.is_pc() and npc.empire != pc.empire then 
            local count = pc.getqf("state") - 1
            if count <= 500 then
                pc.setqf("state", count)
                q.set_counter("kills", -count)
            end
            if count == 0 then
                say_title("Du hast es geschafft!")
                say("500 Spieler aus anderen Reichen zu töten!")
                say("Du erhälst für deine Mühen:")
                say_reward("5.000.000 Yang")
                say_reward("5.000.000 EXP")
                pc.change_money(5000000)
                pc.give_item2(71051, 1)
                pc.give_item2(71051, 1)
                pc.give_item2(71051, 1)
                pc.give_item2(71052, 1)
                pc.give_item2(25041, 1)
                pc.give_item2(25041, 1)
                pc.give_item2(25041, 1)
                pc.give_exp2(5000000)
                notice_all("".. pc.get_name() .." hat soeben die PvP Quest abgeschlossen!")
                notice_all("Sie haben Elite Rang 1 erhalten, Glückwunsch!")
                clear_letter()
                set_state(playerkill2)
            end
        end
    end
end
    state playerkill2 begin
        when letter begin
            send_letter("Töte Gegner aus anderen Reichen")
        end

        when button or info begin
            say("Es wird Zeit dass du zeigst")
            say("was in dir steckt!")
            say("Zeige es uns indem du 1000")
            say("Spieler aus anderen Reichen tötest!")
            say_reward("Töte 1000 andere Spieler aus anderen Reichen!")
            say("")
            pc.setqf("state", 1000)
            q.set_counter("kills", 1000)
            set_state (kill2)
        end
    end
      
        state kill2 begin
        when letter begin
           send_letter("Elite Rang 2")
        end
        
        when button or info begin
            say_title("Spieler:")
            say_reward( "Du musst noch ".." "..pc.getqf("state").."von 1000 töten")
            say("")
        end

        when kill begin
            if npc.is_pc() and npc.empire != pc.empire then 
            local count = pc.getqf("state") - 1
            if count <= 1000 then
                pc.setqf("state", count)
                q.set_counter("kills", -count)
            end
            if count == 0 then
                say_title("Du hast es geschafft!")
                say("1000 Spieler aus anderen Reichen zu töten!")
                say("Du erhälst für deine Mühen:")
                say_reward("5.000.000 Yang")
                say_reward("5.000.000 EXP")
                pc.change_money(5000000)
                pc.give_item2(71051, 1)
                pc.give_item2(71051, 1)
                pc.give_item2(71051, 1)
                pc.give_item2(71052, 1)
                pc.give_item2(25041, 1)
                pc.give_item2(25041, 1)
                pc.give_item2(25041, 1)
                pc.give_exp2(5000000)
                notice_all("".. pc.get_name() .." hat soeben die PvP Quest abgeschlossen!")
                notice_all("Sie haben Elite Rang 2 erhalten, Glückwunsch!")
                clear_letter()
                set_state(playerkill3)
            end
        end
    end
end
    state playerkill3 begin
        when letter begin
            send_letter("Töte Gegner aus anderen Reichen")
        end

        when button or info begin
            say("Es wird Zeit dass du zeigst")
            say("was in dir steckt!")
            say("Zeige es uns indem du 2000")
            say("Spieler aus anderen Reichen tötest!")
            say_reward("Töte 2000 andere Spieler aus anderen Reichen!")
            say("")
            pc.setqf("state", 2000)
            q.set_counter("kills", 2000)
            set_state (kill3)
        end
    end
      
        state kill3 begin
        when letter begin
           send_letter("Elite Rang 3")
        end
        
        when button or info begin
            say_title("Spieler:")
            say_reward( "Du musst noch ".." "..pc.getqf("state").."von 2000 töten")
            say("")
        end

        when kill begin
            if npc.is_pc() and npc.empire != pc.empire then 
            local count = pc.getqf("state") - 1
            if count <= 2000 then
                pc.setqf("state", count)
                q.set_counter("kills", -count)
            end
            if count == 0 then
                say_title("Du hast es geschafft!")
                say("2000 Spieler aus anderen Reichen zu töten!")
                say("Du erhälst für deine Mühen:")
                say_reward("6.000.000 Yang")
                say_reward("6.000.000 EXP")
                pc.change_money(6000000)
                pc.give_item2(71051, 1)
                pc.give_item2(71051, 1)
                pc.give_item2(71051, 1)
                pc.give_item2(71052, 1)
                pc.give_item2(25041, 2)
                pc.give_item2(25041, 2)
                pc.give_item2(25041, 2)
                pc.give_exp2(6000000)
                notice_all("".. pc.get_name() .." hat soeben die PvP Quest abgeschlossen!")
                notice_all("Sie haben Elite Rang 3 erhalten, Glückwunsch!")
                clear_letter()
            end
        end
    end
end
    state __COMPLETE__ begin
    end
end 
Delta hatte mir die Quest schonmal entbuggt.
Aber mir ist sie leider durch nen fehler abhanden gekommen.
Delta fals du das liest wärst du nochmal so nett? :D
08/02/2011 20:00 Brodan#2940
Nabend,

habe mir eben ne Quest geschrieben, funktioniert auch einwandfrei, bis auf die Funktion "Team Anzeigen".

In der Quest steht nun z.B: Say("[SA]Reload") Ingame steht allerdings nur "Reload" in der Quest.
Hier die Quest:

Kann der Fehler irgendwie behoben werden?
Denn so kennt sich niemand aus wer was is...

Danke im Vorraus.
Page 196 of 845 « First 96146186194195 196 197198206246296696 Last »