[SERVICE] Die Questkontrolle

Page 838 of 845

838

10/28/2017 20:08 .MeeK#12556

Quote:

Originally Posted by DonkyKong1

Hey Com,
bei mir kommt in virtual box immer die fehlermeldung:
siehe anhang.

Hier die Quest dazu:

Spoiler

quest highlvlmaps begin
state start begin
when 30180.use begin
local warp = {--koord Pflicht, rest optional!
{--Highlvl Maps
name = "Highlvl Maps",
{--Kap des Drachenfeuers Lv.100
name = "Kap des Drachen",
koord = {1104300, 1788500},
minlevel = 100,
maxlevel = 180,
},
{--Donnerberge Lv.120
name = "Donnerberge Lv.120",
koord = {1134500, 1654600},
minlevel = 120,
maxlevel = 180,
},
{--Gautamakliff Lv.135
name = "Gautamakliff Lv.135",
koord = {1226300, 1681100},
minlevel = 135,
maxlevel = 180,
},
{--Nephritbucht Lv.150
name = "Gautamakliff Lv.150",
koord = {1086900, 1655800},
minlevel = 150,
maxlevel = 180,
},
},
{--Farmmaps
name = "Farmmap 1 Lv.50",
{--Farmmap 1 Lv.50
name = "Farmmap 1 Lv.50",
koord = {297300, 547900},
minlevel = 50,
maxlevel = 180,
},
{--Farmmap 2 Lv.100
name = "Farmmap 2 Lv.100",
koord = {436900, 216100},
minlevel = 100,
maxlevel = 180,
},
},
}
warpring.showwarps(warp)
end
function warp(tbl)
local level = pc.get_level()
if tbl.minlevel and level < tbl.minlevel then
say("Dein Level ist zu niedrig, um diese Map zu betreten.")
say("Minimal Level: "..tbl.minlevel)
select("Abbrechen")
return
elseif tbl.maxlevel and level > tbl.maxlevel then
say("Dein Level ist zu hoch, um diese Map zu betreten.")
say("Maximal Level: "..tbl.maxlevel)
select("Abbrechen")
return
end
while not pc.can_warp() do
say("Du kannst dich noch nicht teleportieren, da du in")
say("den letzten 10 Sekunden gehandelt hast.")
if select("Erneut versuchen", "Abbrechen") == 2 then return end
end
local warpneedstrings = warpring.get_warpneedstrings(tbl)
if table.getn(warpneedstrings) > 0 then
say("Um diese Map zu betreten ben�tigst du folgende")
say("Dinge:")
for _,v in ipairs(warpneedstrings) do
say(v)
end
say("")
say("M�chtest du trotzdem fortfahren?")
if select("Teleportieren", "Abbrechen") == 2 then return end
end
if not warpring.check_and_remove_warpneeds(tbl) then
say("Dir fehlt mindestens eins der ben�tigten Dinge.")
select("Abbrechen")
return
end
pc.warp(tbl.koord[1], tbl.koord[2])
end
function get_warpneedstrings(tbl)
local warpneeds = {}
if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
for _,v in ipairs(tbl.itemneed) do
table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1]))
end
end
if tbl.goldneed and tbl.goldneed > 0 then
table.insert(warpneeds, "- "..tbl.goldneed.." Yang")
end
return warpneeds
end
function check_warpneeds(tbl)
if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
for _,v in ipairs(tbl.itemneed) do
if pc.count_item(v[1]) < v[2] then
return false
end
end
end
if tbl.goldneed and tbl.goldneed > 0 then
if pc.get_gold() < tbl.goldneed then
return false
end
end
return true
end
function remove_warpneeds(tbl)
if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
for _,v in ipairs(tbl.itemneed) do
pc.remove_item(v[1], v[2])
end
end
if tbl.goldneed and tbl.goldneed > 0 then
pc.change_gold(-tbl.goldneed)
end
end
function check_and_remove_warpneeds(tbl)
if not warpring.check_warpneeds(tbl) then
return false
end
warpring.remove_warpneeds(tbl)
return true
end
function get_warpnames(tbl)
local level = pc.get_level()
local names = {}
for _,v in ipairs(tbl) do
if v.minlevel and level < v.minlevel then
v.name = v.name.." (ab Lv. "..v.minlevel..")"
elseif v.maxlevel and level > v.maxlevel then
v.name = v.name.." (bis Lv. "..v.maxlevel..")"
end
table.insert(names, v.name)
end
return names
end
function showwarps(tbl)
local warpnames = warpring.get_warpnames(tbl)
local s = tbl[select3(warpnames)] or false
if not s then return end
if s.koord then
warpring.warp(s)
return
end
warpring.showwarps(s)
end
end
end

Wie ich sehe hast du die Quest umbenannt, dann musst du innerhalb der Quest allerdings auch �berall "warpring" mit "highlevelmaps" ersetzen.

Beispielsweise Zeile 48: warpring.showwarps(warp) muss mit highlevelmaps.showwarps(warp) ersetzt werden.

Dies hat den Hintergrund, dass eigentlich alle "Functions" extern eingetragen werden, wenn man sie allerdings nur spontan f�r diese eine Quest braucht, oder halt in Releases, dann wird die Function direkt in die Quest eingetragen. Und diese Function wird dann mit "QUEST_NAME.FUNCTION_NAME" aufgerufen.

Mit freundlichem Gru�,
.MeeK

10/28/2017 22:16 Siimex99#12557

Sers leute , br�uchte eine quest das wenn bei beliebig vielen kills (pvp) das und das item gedroppt werden. Danke im vorraus^^

10/29/2017 13:36 .MeeK#12558

Quote:

Originally Posted by Siimex99

Sers leute , br�uchte eine quest das wenn bei beliebig vielen kills (pvp) das und das item gedroppt werden. Danke im vorraus^^

Hallo Siimex99,

f�r die Questerstellung dient folgender Thread: [Only registered and activated users can see links. Click Here To Register...]

Deine Anfrage geh�rt dort rein.

Aber um deine Frage schon mal zu beantworten bzw. zu hinterfragen.. soll das Item ab einer gewissen Kill Zahl nur 1x zu 100% gedroppt werden?

Beispielsweise:
- 50 Kills = Vollmondschwert+9 wird gedroppt
- 100 Kills = Giftschwert+9 wird gedroppt

oder soll man beispielsweise ab 50 Kills zu einer einstellbaren Chance immer wieder ein Vms+9 droppen und ab 100 Kills dann sowohl ein Vms+9 & ein Giftschwert+9 zu einer gewissen %-Chance droppen?

Mit freundlichem Gru�,
.MeeK

10/31/2017 14:35 Siimex99#12559

Es soll zu 100% bei jedem 3. tod eine Wei�e perle Droppen bei jedem 6. Tod eine Blaue und bei jedem 10. Eine Rote. ich hab aber keine ahnung wie ich das unterbinde das man sich ein acc erstellt und den dann einfach dauert t�tet^^

11/03/2017 08:28 iCaLoXi1#12560

Quote:

Spoiler

quest goldbarren1 begin
state start begin
when 80003.use begin
chat("Du hast 10kk erhalten.")
pc.change_money(10000000)
pc.remove_item(80003, 1)
end
end
end
end
end

Sonstiges/goldbarren1.quest:10:must start with 'quest'
Error occured on compile Sonstiges/goldbarren1.quest

11/05/2017 15:22 ThaRielFliege#12561

Quote:

Originally Posted by iCaLoXi1

Sonstiges/goldbarren1.quest:10:must start with 'quest'
Error occured on compile Sonstiges/goldbarren1.quest

PHP Code:


			
quest goldbarren1 begin
    state start begin
        when 80003.use begin
            chat("Du hast 10kk erhalten.")
            pc.change_money(10000000)
            pc.remove_item(80003, 1)
        end
    end
end

11/05/2017 17:14 kil9er#12562

Mein erster Versuch eine Quest zu schreiben und ich habe ausversehen was(wirklich nojoke) ver�ndert k.A was und beim rebooten kam immer derselbe Fehler auf. I need helpP

"WHEN : 20349.chat ("Pferdepr�fung") with horse . get_grade () == 0 qc in malloc(): error: allocation failed | Error occured on compile pony_buy.quest"

Ich habe es versucht um zu schreiben, aber immer derselbe Fehler.

PHP Code:


			
quest pony_buy begin
    state start begin
        when 20349.chat."Pferdepr�fung" with horse.get_grade()==0 begin
            if pc.level<=14 then
                say_title("Pferdepr�fung")
                say("")
                say("Du m�chtest die Pferdepr�fung machen?")
                say("Es tut mir leid, aber dein Level")
                say("ist f�r die Pr�fung viel zu niedrig!")
                say("")
                say_reward("Du solltest wiederkommen, wenn du Level 15 erreicht hast.")
                say("")
            elseif pc.countitem("30027")<1 then
                say_title("Pferdepr�fung")
                say("")
                say("Du bekommst nur dann ein Pony von mir,")
                say("wenn du mir hilfst!")
                say("Ich brauche neues Wolfsfell und ich bin f�r ")
                say("die stetig anhaltenden K�mpfe nicht geschaffen. ")
                say("Pass auf dich auf, es lauern Gefahren da drau�en!")
                say("")
                say_reward("Geh und besorge mir 10 Wolfsfelle!")
                say("")
                setstate(need_item30027)
            elseif pc.countitem("30027")>=10 and pc.level>=4 then
                say_title("Pferdepr�fung")
                say("")
                say("Ich habe mir schon gro�e Sorgen gemacht,")
                say("aber du bist mutig und stark gewesen und")
                say("daf�r m�chte ich mich herzlich bedanken.")
                say("So, dann werden wir mal den Tausch vollziehen.")
                say("")
                say_reward("M�chtest du 10 Wolfsfelle gegen einen Pony tauschen?")
                say("")
                local b=select("Ja", "Nein")
                if 1==b then
                    if pc.countitem("30027")>=1 then
                        pc.removeitem("30027", 1)
                        horse.set_level("10")
                        pc.change_money("500000")
                        pc.give_exp2("1500")
                        pc.give_item2("50051", 1)
                        say_title("Pferdepr�fung Belohnung")
                        say("")
                        say("Du erh�lst")
                        say_reward("Dein Pferd ist auf Level 10 angestiegen")
                        say_reward("500.000 Yang")
                        say_reward("1.500 Erfahrungspunkte")
                        say_reward("Ein ausgepr�gtes Pferdebild")
                        say("")
                        say_reward("Komm wieder wenn du das Level 25 erreicht hast")
                        say("")
            end
    state need_item30027 begin
        when letter begin
            setskin(NOWINDOW)
            makequestbutton("Die Wolfsfelle")
            q.set_title("Suche 10 Wolfsfelle") 
            q.start()
        end
        when button begin
            say_title("Pferdepr�fung")
            say("")
            say("Finde 10x Wolfsfelle f�r den Stallburschen")
            say("und bringe es ihm!")
            say("")
            setstate(start)
            q.done()
        end
        when info begin
            say_title("Pferdepr�fung")
            say("")
            say("Finde 10x Wolfsfell f�r den Stallburschen")
            say("und bringe es ihm!")
            say("")
            setstate(start)
            q.done()
        end
    end
end

11/08/2017 15:12 Siimex99#12563

hab das problem das ich keine belohnungen hinzuf�gen kann w�rde gern rechts auf weiter un links auf zur�ck skippen k�nn f�r alle belohnungen
quest pvp_points begin
state start begin
when kill with npc.is_pc() begin -- Hier beginnt der Shop
local ute,hans = pc.get_vid(), npc.get_vid()
pc.select(hans)
local killed_name = pc.get_name()
pc.select(ute)
if get_time() < pc.getqf("waitingtime"..tostring((npc.get_vid()))) then
chat("Du kannst eine Stunde lang nichts mehr von "..killed_name.." droppen")
return
else
if pc.getqf("killedtimes"..npc.get_vid()) >= 4 then -- Anzahl der Kills bei der der Dropblock aktiviert wird
pc.setqf("waitingtime"..npc.get_vid(), get_time()+1*60*60) -- 60 Minuten 2 Stunden = 2*60*60
pc.setqf("killedtimes"..npc.get_vid(), 0)
say_title("PvP-Dropblock Sperre!")
say""
say("Du wirst f�r eine Stunde von "..killed_name)
say("nichts droppen k�nnen!")
else
local v = number(10,20) -- Zufallsnummer zwischen 10,20 falls man einen bestimmten Wert haben m�chte -> number(10,20) weg und da ne zahl hinschreiben
pc.setqf("pvp_points", tonumber(pc.getqf("pvp_points"))+v)
chat("Du hast "..killed_name.." get�tet!")
chat("Deine PvP Punkte steigen auf"..tostring(pc.getqf("pvp_points")))
chat("Du hast "..tostring(v).." PvP Punkte erhalten!")
pc.setqf("killedtimes"..npc.get_vid(), pc.getqf("killedtimes"..npc.get_vid())+1)
end
end
end
when 20094.chat."PvP-Point Shop" begin -- Hier beginnt der Shop
say_title("Heyho!")
say""
say("Du hast aktuell "..tostring(pc.getqf("pvp_points")).." PvP Punkte!")
shopitems = {
{{10009, 1, 200},{10019, 1, 200}}, -- R�stungen; AUFBAU : {VNUM, ANZAHL, KOStEN IN PVP POINTS!}
{{10029, 1, 200}, {10039, 1, 200}}, -- Waffen ; KANN MAN UNENDLICH WEITERERG�NZEN!!
{{10059, 1, 200}, {10049, 1, 200}}, -- Sonstiges
}
local a = select("Waffen","Waffen2","Waffen3","Abbrechen")
local c = {}
for i = 1, table.getn(shopitems[a]), 1 do
table.insert(c, item_name(shopitems[a][i][1]))
end
local b = select3(c)
if shopitems[a][b] == nil then return end
say_title("Hey,")
say("Bist du dir sicher, dass du "..tostring(shopitems[a][b][2]))
say(item_name(shopitems[a][b][1]).." kaufen m�chtesst?")
say_reward("Das kostet dich"..tostring(shopitems[a][b][3]))
local dec = select("Ja","Nein")
if dec == 2 then return end
if pc.getqf("pvp_points") >= shopitems[a][b][3] then
pc.give_item2(shopitems[a][b][1], shopitems[a][b][2])
pc.setqf("pvp_points", pc.getqf("pvp_points") - shopitems[a][b][3])
else
chat("Du hast nicht gen�gend PvP-Points!")
end
end
when 38056.use begin
say_title("M�chtest du den Coupong einl�sen?")
say("")
say("Durch diesen Coupon bekommst du 1000 PvP Points")
say_reward("Einl�sen?")
local jein = select("Ja","Nein")
if jein == 2 then return end
pc.setqf("pvp_points", tonumber(pc.getqf("pvp_points"))+1000)
item.remove()
chat("Du hast nun "..tostring(pc.getqf("pvp_points")).." PvP Points")
end
end
end

11/09/2017 10:38 ZiriX#12564

Spoiler

Quote:

Originally Posted by kil9er

Mein erster Versuch eine Quest zu schreiben und ich habe ausversehen was(wirklich nojoke) ver�ndert k.A was und beim rebooten kam immer derselbe Fehler auf. I need helpP

"WHEN : 20349.chat ("Pferdepr�fung") with horse . get_grade () == 0 qc in malloc(): error: allocation failed | Error occured on compile pony_buy.quest"

Ich habe es versucht um zu schreiben, aber immer derselbe Fehler.

PHP Code:

quest pony_buy begin state start begin when 20349.chat."Pferdepr�fung" with horse.get_grade()==0 begin if pc.level<=14 then say_title("Pferdepr�fung") say("") say("Du m�chtest die Pferdepr�fung machen?") say("Es tut mir leid, aber dein Level") say("ist f�r die Pr�fung viel zu niedrig!") say("") say_reward("Du solltest wiederkommen, wenn du Level 15 erreicht hast.") say("") elseif pc.countitem("30027")<1 then say_title("Pferdepr�fung") say("") say("Du bekommst nur dann ein Pony von mir,") say("wenn du mir hilfst!") say("Ich brauche neues Wolfsfell und ich bin f�r ") say("die stetig anhaltenden K�mpfe nicht geschaffen. ") say("Pass auf dich auf, es lauern Gefahren da drau�en!") say("") say_reward("Geh und besorge mir 10 Wolfsfelle!") say("") setstate(need_item30027) elseif pc.countitem("30027")>=10 and pc.level>=4 then say_title("Pferdepr�fung") say("") say("Ich habe mir schon gro�e Sorgen gemacht,") say("aber du bist mutig und stark gewesen und") say("daf�r m�chte ich mich herzlich bedanken.") say("So, dann werden wir mal den Tausch vollziehen.") say("") say_reward("M�chtest du 10 Wolfsfelle gegen einen Pony tauschen?") say("") local b=select("Ja", "Nein") if 1==b then if pc.countitem("30027")>=1 then pc.removeitem("30027", 1) horse.set_level("10") pc.change_money("500000") pc.give_exp2("1500") pc.give_item2("50051", 1) say_title("Pferdepr�fung Belohnung") say("") say("Du erh�lst") say_reward("Dein Pferd ist auf Level 10 angestiegen") say_reward("500.000 Yang") say_reward("1.500 Erfahrungspunkte") say_reward("Ein ausgepr�gtes Pferdebild") say("") say_reward("Komm wieder wenn du das Level 25 erreicht hast") say("") end state need_item30027 begin when letter begin setskin(NOWINDOW) makequestbutton("Die Wolfsfelle") q.set_title("Suche 10 Wolfsfelle") q.start() end when button begin say_title("Pferdepr�fung") say("") say("Finde 10x Wolfsfelle f�r den Stallburschen") say("und bringe es ihm!") say("") setstate(start) q.done() end when info begin say_title("Pferdepr�fung") say("") say("Finde 10x Wolfsfell f�r den Stallburschen") say("und bringe es ihm!") say("") setstate(start) q.done() end end end

Veruschs mal noch 1 oder 2 ends am Ende dran zu h�ngen.

11/15/2017 20:05 zazadi#12565

Quote:

Originally Posted by ZiriX

Veruschs mal noch 1 oder 2 ends am Ende dran zu h�ngen.

Da sind viel zu viele Fehler drin.
Liegt auch nicht nur an den ends.
Habe keine zeit sonst w�rd ich es fixxen

11/20/2017 10:28 Chris9090909090#12566

Spoiler

nach dem porten passiert garnichts weiter

11/21/2017 12:39 iCaLoXi1#12567

Spoiler

Quote:

quest regenbogen begin
state start begin

function TimeToUse()
local timeleft = (pc.getqf("regiwait") - get_time())
timeleft = math.ceil(timeleft / 60)
if timeleft > 60 then
timeleft = math.ceil(timeleft / 60)
chat("Verbleibende Zeit: "..timeleft.." Stunden.")
else
chat("Verbleibende Zeit: "..timeleft.." Minuten.")
end
end

when 50512.use begin
if get_time() > pc.getqf("regiwait") then
say_title("Regenbogenstein:")
say("Du kannst den Regenbogenstein noch nicht benutzen!")
regenbogen.TimeToUse()
wait()
else
say_title("Regenbogenstein:")
say("Du m�chtest also deine Skills ")
say("Perfektionieren?")

if pc.job ==0 then
say("W�hle deine Lehre aus")

local s=select("K�rper","Mental")

if s==1 then
pc.set_skill_group(1)
pc.set_skill_level(1 ,59)
pc.set_skill_level(2 ,59)
pc.set_skill_level(3 ,59)
pc.set_skill_level(4 ,59)
pc.set_skill_level(5 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)

else
pc.set_skill_group(2)
pc.set_skill_level(16 ,59)
pc.set_skill_level(17 ,59)
pc.set_skill_level(18 ,59)
pc.set_skill_level(19 ,59)
pc.set_skill_level(20 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)
end

elseif pc.job ==1 then
say("W�hle deine Lehre aus")

local s=select("Nahkampf","Fernkampf")

if s==1 then
pc.set_skill_group(3)
pc.set_skill_level(31 ,59)
pc.set_skill_level(32 ,59)
pc.set_skill_level(33 ,59)
pc.set_skill_level(34 ,59)
pc.set_skill_level(35 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)

else
pc.set_skill_group(4)
pc.set_skill_level(46 ,59)
pc.set_skill_level(47 ,59)
pc.set_skill_level(48 ,59)
pc.set_skill_level(49 ,59)
pc.set_skill_level(50 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)
end

elseif pc.job ==2 then
say("W�hle deine Lehre aus")
local s=select("Magie","Waffe")

if s==1 then
pc.set_skill_group(5)
pc.set_skill_level(76 ,59)
pc.set_skill_level(77 ,59)
pc.set_skill_level(78 ,59)
pc.set_skill_level(79 ,59)
pc.set_skill_level(80 ,59)
pc.set_skill_level(81, 59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)

else
pc.set_skill_group(6)
pc.set_skill_level(61 ,59)
pc.set_skill_level(62 ,59)
pc.set_skill_level(63 ,59)
pc.set_skill_level(64 ,59)
pc.set_skill_level(65 ,59)
pc.set_skill_level(66 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)
end

elseif pc.job ==3 then
say("W�hle deine Lehre aus")
local s=select("Heilung","Drache")

if s==1 then
pc.set_skill_group(7)
pc.set_skill_level(106 ,59)
pc.set_skill_level(107 ,59)
pc.set_skill_level(108 ,59)
pc.set_skill_level(109 ,59)
pc.set_skill_level(110 ,59)
pc.set_skill_level(111 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)

else
pc.set_skill_group(8)
pc.set_skill_level(91 ,59)
pc.set_skill_level(92 ,59)
pc.set_skill_level(93 ,59)
pc.set_skill_level(94 ,59)
pc.set_skill_level(95 ,59)
pc.set_skill_level(96 ,59)
say("Alle deine Skills sind nun Perfekt!")
pc.setqf("regiwait", get_time() + 60*60*1)
end
end
end
end
end
end

Ich will regenbogenstein erst wieder nach 1 stunde benutzbar machen..
und es kommt noch -21412412412 stunden verbleiben.. obwohl ich es
nicht benutz habe und nach dem benutzen halt auch -241421412 stunden...

12/07/2017 03:34 Endless.#12568

Sch�nen guten Morgen zusammen,

Ich habe eine Quest an der ich nicht mehr weiter komme.

Spoiler

PHP Code:


			
quest time_running begin
    state start begin
        when login or levelup with pc.get_level() >= 13 begin
            set_state(infor)
        end
    end
    state infor begin
        when letter begin
            local a = find_npc_by_vnum(20003)
            if a != 0 then
                target.vid("__TARGET__", a, "")
            end
            send_letter("Kampf gegen die Zeit! ")
        end
        when __TARGET__.target.click or 20003.chat."Kampf gegen die Zeit! " begin
            target.delete("__TARGET__")
            say_title("Ah-Yu")
            say("Hallo "..pc.get_name().." !")
            say("Ich habe auf 5 Regionen einen Sprint")
            say("gewagt und war dabei bisher immer der")
            say("Schnellste der je von A nach B wie der")
            say("Blitz ankam. Ich wette mit dir das du")
            say("meine Bestzeiten niemals schl�gst! ")
            say("")
            wait()
            say_title("Ah-Yu")
            say("Meine Herausforderungen findest du in")
            say("diesen Regionen: ")
            say_reward("Orktal - 02:30Min ")
            say_reward("Yogbi-W�ste - 01:20Min ")
            say_reward("Feuerland - 02:30Min ")
            say_reward("Eisland - 02:00Min ")
            say_reward("Tempel - 03:40Min ")
            local a = select("Ja warum nicht", "Nein daf�r habe ich keine Zeit")
            if a == 2 then
                return
            end
            if a == 1 then
                say_title("Ah-Yu")
                say("Also gut. In jeder Region wirst du")
                say("eine Markierung auf dem Boden finden.")
                say("Sobald du diesen erreichst, wirst")
                say("du das Ziel und deine vorgegebene")
                say("Zeit sehen. Schaffst du diese Ziele, ")
                say("so wirst du daf�r belohnt werden ")
                set_state(sprint)
                pc.setqf("rennen", 0)
                pc.setqf("ork", 0)
                pc.setqf("feuer", 0)
                pc.setqf("tempel", 0)
                pc.setqf("eis", 0)
                pc.setqf("desert", 0)
            end
        end
    end
    state sprint begin
        when letter begin
            send_letter("Zeitrennen! ")
            q.set_clock("Zeit", pc.getqf("time")-get_time())
        end
        when leave or logout begin
            pc.delqf("active_run")
        end
        when button or info begin
            if pc.getqf("active_run") == 1 then
                say_title("Zeitrennen! ")
                say("Du bist Momentan in einem ")
                say("aktiven Zeitrennen! ")
            else 
                say_title("Zeitrennen! ")
                say("Du hast im Moment ")
                say(""..pc.getqf("rennen").."/5 Zeitrennen geschafft! ")
                say("Die Rennen findest du in:")
                say("Orktal, W�ste, Eisland, Feuerland und")
                say("im Tempel")
                target.pos("__TARGET1__", 140, 147, 64, "")
                target.pos("__TARGET2__", 941, 675, 200, "")
                target.pos("__TARGET3__", 1477, 95, 62, "")
                target.pos("__TARGET4__", 705, 197, 61, "")
                target.pos("__TARGET5__", 185, 905, 65, "")
            end
        end
        when __TARGET1__.target.arrive with pc.getqf("ork777") == 1 begin
            target.delete("__TARGET1__")
            say_title("Zeitrennen! ")
            say("Dieses Rennen hast du bereits ")
            say("absolviert. Versuche ein anderes")
            say("Rennen in einer anderen Region.")
        end
        when __TARGET1__.target.arrive with pc.getqf("ork777") == 0 begin
            target.delete("__TARGET1__")
            say_title("Zeitrennen!")
            say("Bist du f�r das Zeitrennen")
            say("bereit? Du darfst Reittiere")
            say("oder Pferd f�r diesen Wettlauf")
            say("benutzen. M�chtest du es versuchen?")
            say("")
            local a = select("Ja","Nein")
            if a == 2 then
                return
            end
            if a == 1 then
                say_title("Zeitrennen! ")
                say("Nun gut, dein Ziel:")
                say_reward("Orktal S�d-�stl. Insel erreichen. ")
                say("Zeit: 02:30 Min")
                wait()
                pc.setqf("time", get_time()+150*1)
                pc.setqf("active_run", 1)
                target.pos("__TARGET11__", 1222, 1324, 64, "")
                if get_time() < pc.getqf("time") then
                    say_title("Zeitrennen! ")
                    say("Leider hast du es nicht geschafft innerhalb")
                    say("der angegebenen Zeit das Ziel zu erreichen.")
                    say("Du kannst es aber erneut versuchen in dem ")
                    say("du zur Startposition zur�ckkehrst. ")
                    target.pos("__TARGET1__", 140, 147, 64, "")
                    target.delete("__TARGET11__")
                    pc.delqf("active_run")
                end
            end
        end
----    when 1.timer begin
----        say_title("Zeitrennen! ")
----        say("Leider hast du es nicht geschafft innerhalb")
--            say("der angegebenen Zeit das Ziel zu erreichen.")
--            say("Du kannst es aber erneut versuchen in dem ")
--            say("du zur Startposition zur�ckkehrst. ")
--            target.pos("__TARGET1__", 140, 147, 64, "")
--        end
        when __TARGET11__.target.arrive begin
            if pc.getqf("rennen")< 5 then
                pc.setqf("rennen",index)
                target.delete("__TARGET11__")
                say_title("Zeitrennen! ")
                say("Gl�ckwunsch, Du hast nun")
                say("das "..1+pc.getqf("rennen").. ". Rennen geschafft! ")
                say("Es sind noch "..5-pc.getqf("rennen").." zu absolvieren. ")
                cleartimer()
                pc.setqf("ork", 1)
                pc.change_money(100000)
                pc.give_item2(25040)
                local index = pc.getqf("rennen")+1 
            end
        end
        when login with pc.getqf("rennen") == 5 and pc.getqf("ork") == 1 and pc.getqf("eis") == 1 and pc.getqf("feuer") == 1 and pc.getqf("tempel") == 1 and pc.getqf("desert") == 1 begin
            say_title("Zeitrennen! ")
            say("Gl�ckwunsch, du hast nun alle Zeitrennen")
            say("gemeistert.")
            say("Du verdienst daf�r eine Belohnung: ")
            say("")
            say_reward("Du erh�lst 3x Magischen Stein")
            say_reward("Du erh�lst 3x Seelenstein")
            say_reward("Du erh�lst +5% Bewegungsgeschw. ")
            say_reward("Du erh�lst 250.000 Yang ")
            affect.add_collect(apply.MOV_SPEED,5,60*60*24*365*20)
            pc.give_item2(25041)
            pc.give_item2(25041)
            pc.give_item2(25041)
            pc.give_item2(50513)
            pc.give_item2(50513)
            pc.give_item2(50513)
        end
    end
end
--  1222 1324 # 02:30
-- 1444 1386 # 01:20
-- 1475 94 # 02:30
-- 1342 1316 # 02:00
-- 535 582 # 03:40

Die Testphase scheitert im Moment daran das keine Uhr zu sehen ist wie damals
bei der Milit�rgaul-Quest. Alles andere funktioniert und braucht evtl nur verbessert zu werden. Ich habe alles erdenkliche versucht um da ne ablaufende Zeit sichtbar zu machen mit q.set_clock usw.. ohne Erfolg.

K�nnt ihr mir bitte helfen?

Mit freundlichen Gr��en, Endless :)

12/18/2017 00:09 AntikerGolem#12569

Spoiler

Quest funz alles, bis darauf das man nicht raus teleportiert wird & die Schmiede nicht erscheinen..
Kann einer weiter helfen?

01/21/2018 14:09 Guron#12570

hallo ich lerne gerade questen. kann mir hierbei jemand bei meiner kleinen simplen pvp quest helfen?

Spoiler

ganz simpel. spieler soll 5 leute ins jenseits bef�rdern. funktioniert leider auch nur halbwegs. die chat nachricht wird doppelt ausgegeben und der z�hler bleibt bei 1 h�ngen. kann mir jemand mit einer erkl�rung helfen? danke

Page 838 of 845

838