[SERVICE] Die Questkontrolle

Page 842 of 845

842

09/07/2019 16:23 losser123456789#12616

Exclamation [Quest] Nochmal eine Quest frage nach Tot in stadt porten

Guten Tag,

Bin gerade am Quest schreiben und stehe vor dem Problem ich m�chte, dass wenn sich ein Spieler Ausloggt oder gestorben ist in sein Dorf zur�ck teleportiert wird.

LG

Quote:

quest pvp begin
state start begin
when login or levelup with pc.get_level() > 14 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Battle Royal")
end
when button or info begin
say_title("Guten Tag tapferer Krieger du hast nun lvl 15 erreicht und bist bereit um zu k�mpfen.")
say("Viel spass beim duelieren.")
end
when kill begin
if npc.is_pc() then
if pc.get_map_index() == 121 then
pc.give_exp2(50000)
say("Du hast 50.000 Erfahrung erhalten.")
game.set_event_flag("mapi", game.get_event_flag("mapi")+1)
if game.get_event_flag("mapi")== 4 then
notice_all("".. pc.get_name() .." hat gerade das")
notice_all("Tunier gewonnen!")
warp_all_to_village( pc.get_map_index() , 1 )

end

end
end
end
end
end

02/07/2020 08:42 .Try#12617

Quote:

Originally Posted by losser123456789

Exclamation [Quest] Nochmal eine Quest frage nach Tot in stadt porten

Guten Tag,

Bin gerade am Quest schreiben und stehe vor dem Problem ich m�chte, dass wenn sich ein Spieler Ausloggt oder gestorben ist in sein Dorf zur�ck teleportiert wird.

LG

Daf�r ben�tigst du einen passenden Event Trigger, der dann quasi ausgel�st wird wenn diese Aktionen ausgef�hrt werden.
Falls du diesen besitzen solltest, kann man das ganz einfach umsetzen.
Meld dich dann bei mir & ich helfe dir gerne dabei.

02/15/2020 06:46 NeXuS0248#12618

This code is my quest:

Spoiler

This error on Syserr:

Spoiler

Thanks for all

02/21/2020 13:20 Natsu Dragneel#12619

Quote:

Originally Posted by NeXuS0248

This code is my quest:

Spoiler

quest blocage_experience begin
state start begin
when login begin
if pc.getqf("antiexp") == 1 then
pc.block_exp()
chat("Rappel : V�rifier si votre anneau est bien bloquer ou d�bloquer.")
end
end
when 40004.use begin
if pc.getqf("antiexp") == 0 then
pc.block_exp()
pc.setqf("antiexp", 1)
chat("Le blocage d'exp�rience � �t� activer")
elseif pc.getqf("antiexp") == 1 then
pc.unblock_exp()
pc.setqf("antiexp", 0)
chat("Le blocage d'exp�rience � �t� d�sactiver.")
end
end
end
end

This error on Syserr:

Spoiler

WriteRunningStateToSyserr: LUA_ERROR: quest blocage_experience.start click
and
....
attempt to call field `block_exp' (a nil value)

Thanks for all

Hey, is it possible that you use old-serverfiles?

maybe try this quest:

Code:

quest antiexpring begin
state start begin
when 72501.use with pc.getqf("antiexp") == 0 begin
local anti = pc.get_exp()
pc.setqf("exp", anti)
pc.setqf("antiexp", 1)
timer("antiexptimer", 1)
chat("Der Anti Expring wurde aktiviert! Du erh�ltst in diesem Zeitraum keine EXP!")
end
when 72501.use with pc.getqf("antiexp") == 1 begin
pc.setqf("antiexp", 0)
chat("Der Anti Expring wurde deaktiviert! Du erh�ltst nun wieder EXP!")
end
when kill with pc.getqf("antiexp") == 1 begin
local exp = pc.get_exp()
pc.give_exp2(-exp+pc.getqf("exp"))
end
when antiexptimer.timer with pc.getqf("antiexp") == 1 begin
local exp = pc.get_exp()
pc.give_exp2(-exp+pc.getqf("exp"))
end
end
end

04/07/2020 23:33 .Oskar#12620

Hallo.
Ich kann keine Gilde gr�nden , weil dort steht ich bin nicht Level 145.
Ich habe die Quets kontrolliert und sie passen zu 1000% auch andere benutzt, in welcher Datei finde ich es oder kann es �ndern? Ich wei� es leider nicht mehr , thanks

<Gilde> Du bist nicht Level ...
Und kann deswegen keine Gilde gr�nden.

die Quest:

quest guild_manage begin
state start begin
when 11000.chat."Gilde verlassen" or 11002.chat."Gilde verlassen" or 11004.chat."Gilde verlassen" with pc.hasguild() and not pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin
say_title("W�chter des Dorfplatzes")
say("M�chtest du deine Gilde wirklich")
say("verlassen? Ich denke deine Member")
say("werden entt�uscht von dir sein..")
local s = select("Ja", "Nein")
if s==1 then
say_title("W�chter des Dorfplatzes")
say("Du bist nun wieder Gildenlos!")
pc.remove_from_guild()
end
end
when 11000.chat."Gilde aufl�sen" or 11002.chat."Gilde aufl�sen" or 11004.chat."Gilde aufl�sen" with pc.hasguild() and pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin
say_title("W�chter des Dorfplatzes")
say("M�chtest du deine Gilde wirklich")
say("aufl�sen? Ich denke deine Member")
say("werden entt�uscht von dir sein..")
local s = select("Ja", "Nein")
if s==1 then
say_title("W�chter des Dorfplatzes")
say("Deine Gilde ist nun aufgel�st!")
pc.destroy_guild()
end
end

when 11000.chat."Gilde gr�nden" or 11002.chat."Gilde gr�nden" or 11004.chat."Gilde gr�nden" with not pc.hasguild() and not pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin
say_title("W�chter des Dorfplatzes")
say("M�chtest du eine Gilde gr�nden?")
local s = select("Ja", "Nein")
if s == 2 then
return
end

if s == 1 then
game.request_make_guild()
end
end
end
end

04/08/2020 10:19 .Karuzo#12621

Quote:

Originally Posted by levita2

N�chstes problem xD, bei meiner quest (Regenbogenstein) ben�tigt man 20k rang-punkte, dass mit dem abziehen habe ich schon hin bekommen, aber mann kann das trotzdem nutzen obwohl man -20k rang-punkte hat, ich h�tte es gerne so das man wieder auf neutrale rang-punkte kommen muss das man es erst wieder nutzen kann.
DIE QUEST

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

Spoiler

Code:

quest regenbogenstein begin
  state start begin

    function BuildPerfectMasterSkillList(job, group)
      GRAND_MASTER_SKILL_LEVEL = 20
      PERFECT_MASTER_SKILL_LEVEL = 40

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

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

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

      -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))

      if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
        table.insert(ret_vnum_list, skill_vnum)

        local name=locale.GM_SKILL_NAME_DICT[skill_vnum]

        if name == nil then name=skill_vnum end
          table.insert(ret_name_list, name)
        end
      end)
      return {ret_vnum_list, ret_name_list}
    end

    when 50512.use begin
      local count = pc.count_item(50512)
      pc.setqf("regen_count", count)

      if pc.get_skill_group() == 0 then
        say("Du hast noch keine Fertigkeiten.")
        say("Versuche es sp�ter erneut.")
        return
      end

      local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get _job(), pc.get_skill_group())
      local vnum_list = result[1]
      local name_list = result[2]

      if table.getn(vnum_list) == 0 then
        say("Du hast keine Meister-Fertigkeiten.")
        return
      end

      local menu_list = {}
      table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
      table.insert(menu_list, "Abbrechen")

      local s=select_table(menu_list)

      if table.getn(menu_list) == s then
        return
      end

      local skill_name=name_list[s]
      local skill_vnum=vnum_list[s]
      
      say_title(""..pc.get_name().." : Fortsetzung deines Trainings?")
      say("M�chtest du "..skill_name.."")
      say("auf Perfekt Meister Trainieren?")
      say("")
      say("Du verlierst dadurch Rangpunkte.")
      say("")
      say_reward("Das Training kostet - 20.000 Rangpunkte!")

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

        if pc.count_item(50512) < pc.getqf("regen_count") then
          return syschat('Buguser bekommen keine Pskills!')
        elseif pc.get_alignment() < 0 then
          return syschat('Du ben�tigst mindestens 0 Rangpunkte.')
        end

        say(string.format(" %s wurde auf Perfekten Meister Trainiert!", skill_name))
        say_reward("Du hast nun - 20.000 Rangpunke![ENTER]")
        pc.remove_item(50512)
        pc.change_alignment(-20000)
        pc.set_skill_level(skill_vnum, 59)
    end
end
end

____________________________________

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

Liegt nicht an der Quest sondern Source funktion.
Suche in deinem Server src nach "request_make_guild".

Dort solltest du die Level Voraussetzung f�r eine Gilde anpassen k�nnen.

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

Hier passende Funktion:

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

Spoiler

04/08/2020 16:31 .Oskar#12622

Quote:

Originally Posted by .Karuzo

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

Spoiler

Code:

quest regenbogenstein begin
  state start begin

    function BuildPerfectMasterSkillList(job, group)
      GRAND_MASTER_SKILL_LEVEL = 20
      PERFECT_MASTER_SKILL_LEVEL = 40

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

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

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

      -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))

      if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
        table.insert(ret_vnum_list, skill_vnum)

        local name=locale.GM_SKILL_NAME_DICT[skill_vnum]

        if name == nil then name=skill_vnum end
          table.insert(ret_name_list, name)
        end
      end)
      return {ret_vnum_list, ret_name_list}
    end

    when 50512.use begin
      local count = pc.count_item(50512)
      pc.setqf("regen_count", count)

      if pc.get_skill_group() == 0 then
        say("Du hast noch keine Fertigkeiten.")
        say("Versuche es sp�ter erneut.")
        return
      end

      local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get _job(), pc.get_skill_group())
      local vnum_list = result[1]
      local name_list = result[2]

      if table.getn(vnum_list) == 0 then
        say("Du hast keine Meister-Fertigkeiten.")
        return
      end

      local menu_list = {}
      table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
      table.insert(menu_list, "Abbrechen")

      local s=select_table(menu_list)

      if table.getn(menu_list) == s then
        return
      end

      local skill_name=name_list[s]
      local skill_vnum=vnum_list[s]
      
      say_title(""..pc.get_name().." : Fortsetzung deines Trainings?")
      say("M�chtest du "..skill_name.."")
      say("auf Perfekt Meister Trainieren?")
      say("")
      say("Du verlierst dadurch Rangpunkte.")
      say("")
      say_reward("Das Training kostet - 20.000 Rangpunkte!")

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

        if pc.count_item(50512) < pc.getqf("regen_count") then
          return syschat('Buguser bekommen keine Pskills!')
        elseif pc.get_alignment() < 0 then
          return syschat('Du ben�tigst mindestens 0 Rangpunkte.')
        end

        say(string.format(" %s wurde auf Perfekten Meister Trainiert!", skill_name))
        say_reward("Du hast nun - 20.000 Rangpunke![ENTER]")
        pc.remove_item(50512)
        pc.change_alignment(-20000)
        pc.set_skill_level(skill_vnum, 59)
    end
end
end

Spoiler

K�nntest du Discord mal vorbei kommen?
[Only registered and activated users can see links. Click Here To Register...]

W�re mies korrekt :)

04/13/2020 21:05 FrenchToast99#12623

Guten Tag bin neu im Questen und habe einen fehler in meinem Beispiel, k�nnte mir jemand sagen, wieso nach Buttonklick kein weiterer Dialog kommt und das bild sich "aufh�ngt". Danke im vorraus ;)

PHP Code:


			
quest xxx begin

    state start begin

        when login with pc.getqf("firstlogin") == 0 begin

            notice_all("Wir begr��en "..pc.get_name().." auf xx")

            say_red("xxx, "..pc.get_name().." .")

            say_white("xx")

        say_white("xxx")

            say_white("xxx")

          local auswahl=select("Weiter reden","Schlie�en")

                if auswahl==1 then

                       say("xxx")

                elseif auswahl==2 then

                    say("xxx")

                return

            end

        end

    end

end

04/15/2020 12:35 G.I Duke#12624

Quote:

Originally Posted by FrenchToast99

Guten Tag bin neu im Questen und habe einen fehler in meinem Beispiel, k�nnte mir jemand sagen, wieso nach Buttonklick kein weiterer Dialog kommt und das bild sich "aufh�ngt". Danke im vorraus ;)

PHP Code:

quest xxx begin state start begin when login with pc.getqf("firstlogin") == 0 begin notice_all("Wir begr��en "..pc.get_name().." auf xx") say_red("xxx, "..pc.get_name().." .") say_white("xx") say_white("xxx") say_white("xxx") local auswahl=select("Weiter reden","Schlie�en") if auswahl==1 then say("xxx") elseif auswahl==2 then say("xxx") return end end end end

PHP Code:


			
quest xxx begin
    state start begin
        when login with pc.getqf("firstlogin") == 0 begin
            notice_all("Wir begr��en "..pc.get_name().." auf xx")
            say_red("xxx, "..pc.get_name().." .")
            say_white("xx")
            say_white("xxx")
            say_white("xxx")
            local auswahl = select("Weiter reden","Schlie�en")
            if 1 == auswahl then
                say("xxx")
            elseif 2 == auswahl then
                say("xxx")
            end
        end
    end
end

Das Return brauchst du dort nicht, was genau meinst du mit weiterem Dialog? Das er xxx sagen soll?
Vergiss nicht nach Abschluss die questflag auf 1 zu setzen [ pc.setqf("firstlogin", 1) ] sonst wiederholt sich die Quest

04/19/2020 18:34 Noa_#12625

Quote:

Originally Posted by levita2

N�chstes problem xD, bei meiner quest (Regenbogenstein) ben�tigt man 20k rang-punkte, dass mit dem abziehen habe ich schon hin bekommen, aber mann kann das trotzdem nutzen obwohl man -20k rang-punkte hat, ich h�tte es gerne so das man wieder auf neutrale rang-punkte kommen muss das man es erst wieder nutzen kann.
DIE QUEST

Versuch es mal hiermit

Spoiler

PHP Code:


			
quest regenbogenstein begin

    state start begin

        function BuildPerfectMasterSkillList(job, group)

            GRAND_MASTER_SKILL_LEVEL = 20

            PERFECT_MASTER_SKILL_LEVEL = 40

            local skill_list = special.active_skill_list[job+1][group]

            local ret_vnum_list = {}

            local ret_name_list = {}

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

            table.foreach(skill_list,

                function(i, skill_vnum)

                local skill_level = pc.get_skill_level(skill_vnum)

                -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))

                if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then

                    table.insert(ret_vnum_list, skill_vnum)

                    local name=locale.GM_SKILL_NAME_DICT[skill_vnum]

                    if name == nil then name=skill_vnum end

                    table.insert(ret_name_list, name)

                end

            end)

            return {ret_vnum_list, ret_name_list}

            --return {ret_vnum_list, ret_name_list}

        end

        when 50512.use begin

            local count = pc.count_item(50512)

            if pc.get_skill_group() == 0 then

                say("Du hast noch keine Fertigkeiten.")

                say("Versuche es sp�ter erneut.")

                return

            end

            local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get _job(), pc.get_skill_group())

            local vnum_list = result[1]

            local name_list = result[2]

            if table.getn(vnum_list) == 0 then

                say("Du hast keine Meister-Fertigkeiten.")

                return

            end

            local menu_list = {}

            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)

            table.insert(menu_list, "Abbrechen")

            local s=select_table(menu_list)

            if table.getn(menu_list) == s then

                return

            end

            local skill_name=name_list[s]

            local skill_vnum=vnum_list[s]

            say_title(""..pc.get_name().." : Fortsetzung deines Trainings?")

            say("M�chtest du "..skill_name.."")

            say("auf Perfekt Meister Trainieren?")

            say("")

            say("Du verlierst dadurch Rangpunkte.")

            say("")

            say_reward("Das Training kostet - 20.000 Rangpunkte!")

            local wahl = select("Ja", "Nein")

            if wahl == 1 then

                if pc.count_item(50512) then

                    if pc.get_alignment() >=0 then -- falls rangpunkte positiv oder 0 ist

                        pc.set_skill_level(skill_vnum, 59)

                        say(skill_name.." wurde auf Perfekten Meister Trainiert!")

                        say_reward("Du hast nun - 20.000 Rangpunke!")

                        say("")

                        pc.remove_item(50512)

                        pc.change_alignment(-20000)

                    else

                        say"Du kannst das nur verwenden wenn dein Rang mind. Neutral ist."

                        say""

                    end

                else

                    say("Buguser bekommen keine P-Skills ! ")

                end

            elseif wahl == 2 then

                return

            end

        end

    end

end

04/30/2020 23:16 akaschikibaba18denis#12626

Moin

Folgendes Problem:

ganz easy, wenn ich den NPC anklicke und daraufhin das Fenster ''Itemshop'' �ffne, passiert einfach nichts, w�re dankbar �ber eure hilfe

Quote:

quest Coins begin
state start begin

function select_from_big_table(big_table)
local max_per_page = 5
local count = table.getn(big_table)
local n = 1

while true do
local table_part = {}
local m = n + max_per_page - 1
local end_reached = false
if m >= count then
m = count
end_reached = true
end

for i = n, m do
table.insert(table_part, big_table[i])
end

if not end_reached then
table.insert(table_part, "Weiter")
end

table.insert(table_part, "Abbrechen")

local s = select_table(table_part)
local count_table_part = table.getn(table_part)

if s == count_table_part then -- Abbrechen
return nil
elseif s == count_table_part - 1 and not end_reached then -- Weiter
n = n + max_per_page
else
return n + s - 1
end
end

return nil
end

when 9004.chat."Itemshop" begin
local coin_vnum = 3
local categories = {"ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE", "ITEM_KATEGORIE" }
local shop = {
-- ITEM_KATEGORIE
{
{71051, 10},
{71052, 10}
}
}

local categorie = ingame_itemshop.select_from_big_table(categories)

if categorie == nil then
return
end

local item_select = {}

for i = 1, table.getn(shop[categorie]) do
table.insert(item_select, item_name(shop[categorie][i][1]) .. " (" .. shop[categorie][i][2] .. ")")
end

local item = ingame_itemshop.select_from_big_table(item_select)

if item == nil then
return
end

local item_obj = shop[categorie][item]
local item_vnum = item_obj[1]
local item_cost = item_obj[2]
local item_name = item_name(item_vnum)

say_title("Itemshop:")
say("M�chtest du")
say_item(item_name, item_vnum, "")
say("f�r " .. item_cost .. " Coins kaufen?")
say("")
if select("Kaufen", "Abbrechen") == 1 then
if pc.count_item(coin_vnum) >= item_cost then
pc.give_item2(item_vnum)
pc.remove_item(coin_vnum, item_cost)
say_title("Itemshop:")
say("Du hast " .. item_name .. " erfolgreich gekauft.")
say("")
else
say_title("Itemshop:")
say("Du besitzt nicht gen�gend Coins.")
say("")
end
end
end

when NPC.chat."IngameCoins bekommen" begin
local coin_vnum = 3
local factor = 1
local sql = mysql_query("SELECT coins FROM account.account WHERE id = "..pc.get_account_id())
if sql == "ERROR" then
say("Fehler beim Auslesen deiner Coins.")
say("")
return
end
local coins = sql.coins[1]
local allowed = math.floor(coins * factor)
local cost = allowed / factor
say_reward("Du besitzt momentan "..coins.." Coins.")
say("")
say("Davon kannst du dir "..allowed.." IG-Coins kaufen.")
say("")
say("")
say_reward("M�chtest du "..allowed.." IG-Coins f�r "..cost.." Coins kaufen?")
say("")
if select("Kaufen", "Abbrechen") == 1 then
mysql_query("UPDATE account.account SET coins = "..(coins-cost).." WHERE id = "..pc.get_account_id())
while allowed > 0 do
local packet = 200
if packet > allowed then
packet = allowed
end
allowed = allowed - packet
pc.give_item2(coin_vnum, packet)
end
end
end
end
end

05/01/2020 00:44 Metin2kenner100#12627

Spoiler

:325:syntax error : [string "start"]:278: <eof> expected near `elseif'
Abort (core dumped)

der haut mir immer diesen Fehler rein, verstehe nur nicht warum? alle Ends sollten richtig sein denke ich

07/05/2020 04:24 TommyH99#12628

Kann mir wer bei der GM-Tool Quest helfen?

PHP Code:


			
quest gmtool begin

    state start begin

        when 36079.use begin

            if not pc.is_gm() then

                say("Du hast nicht die dazu n�tige Berechtigung")

                item.remove()

                return

            end

            gmtool.mainmenu()

        end

        function mainmenu()

            local s = select("Neuer GM", "GM Online Info", "Ank�ndigung schreiben", "Sonstiges", "Abbrechen")

            if s == 1 then

                say("Willkommen im Team und viel Spa�")

                while pc.get_level() < 250 do

                    pc.give_exp2(pc.get_next_exp()-pc.get_exp())

                end

                pc.change_alignment(20000)

                pc.change_gold(1999888777-pc.get_gold())

                for _,vnum in ipairs({50512, 36074, 36075, 36076, 36077, 36078, ({36070, 36071, 36072, 36073})[pc.get_job()+1], ({11971, 11972, 11973, 11974})[pc.get_job()+1]}) do

                    pc.give_item2(vnum)

                end

                if gmtool.to_mainmenu() then

                    gmtool.mainmenu()

                end

                return

            elseif s == 2 then

                notice_all(pc.get_name().." ist Online! Er/Sie ist nun f�r Eure Fragen verf�gbar.")

                if gmtool.to_mainmenu() then

                    gmtool.mainmenu()

                end

                return

            elseif s == 3 then

                gmtool.noticemenu()

                return

            elseif s == 4 then

                local s = select("Spawn Item-Zerst�rer", "Spawn Gemi", "Spawn OX-Blume", "Tag/Nacht", "Unsichtbar/Sichtbar", "Abbrechen")

                if s >= 1 and s <= 3 then

                    mob.spawn(({20363, 9003, 20358})[s], pc.get_local_x(), pc.get_local_y(), 10)

                    if gmtool.to_mainmenu() then

                        gmtool.mainmenu()

                    end

                    return

                elseif s == 4 then

                    local s = select("Tag", "Nacht", "Hauptmenue", "Abbrechen")

                    if s == 1 then

                    --

                    elseif s == 2 then

                    --

                    elseif s == 3 then

                        gmtool.mainmenu()

                        return

                    else

                        return

                    end

                elseif s == 5 then

                    --

                    if gmtool.to_mainmenu() then

                        gmtool.mainmenu()

                    end

                    return

                else

                    return

                end

            else

                return

            end

        end

        function noticemenu()

            say("Ank�ndigung eingeben")

            local text = input()

            say("Ank�ndigung:")

            say(text)

            local s = select("Senden", "Zur�ck", "Hauptmenue", "Abbrechen")

            if s == 1 then

                notice_all(text)

                if gmtool.to_mainmenu() then

                    gmtool.mainmenu()

                end

                return

            elseif s == 2 then

                gmtool.noticemenu()

                return

            elseif s == 3 then

                gmtool.mainmenu()

                return

            else

                return

            end

        end

        function to_mainmenu()

            return select("Hauptmenue", "Abbrechen") == 1

        end

    end

end

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

08/13/2020 02:51 G.I Duke#12629

Ich hoffe mal dass hier �berhaupt noch wer reinschaut :D
Keine Ahnung ich checks nicht, habs 200x kontrolliert aber mein Brain macht
bei der Hitze wohl nicht mehr richtig mit xD

Error occured on compile

Spoiler

PHP Code:


			
-------------------
-- Quest by Duke --
-------------------
quest Pferd begin
    state start begin
        when 20349.chat."Ich m�chte reiten." begin
            if pc.get_level() <= 24 then
                say_title("Stallbursche:")
                say("")
                say("Um ein Pferd erwerben zu k�nnen musst du mindestens")
                say("Level 25 sein. Meiner Meinung nach musst du noch etwas")
                say("besser werden.")
                say("")
                say("Information:")
                say_reward("Komm wieder wenn du Level 25 bist.")
                say("")
            elseif pc.get_level() >= 25 then
                if pc.count_item(50050) >= 1 then
                    say_title("Stallbursche:")
                    say("")
                    say("Wenn du ein Pferd erwerben m�chtest, musst du")
                    say("zuerst eine Qualifikationspr�fung ablegen. Der")
                    say("erste Schritt der Pr�fung besteht darin, mir eine")
                    say("Pferdemedaille zu bri... oh du hast schon eine.")
                    say("")
                    wait()
                    
                    say_title("Stallbursche:")
                    say("")
                    say("Nun, da du bereits eine Pferdemedaille gefunden hast.")
                    say("Wirst du die Qualifikationspr�fung erfolgreich bestanden")
                    say("haben. Wenn du mir nun die Pferdemedaille �berl�sst, kann")
                    say("ich dir eines meiner Pferde aush�ndigen. Aber k�mmere dich")
                    say("bitte gut darum. Ich habe sie selbst gez�chtet und gro�")
                    say("gezogen.")
                    say("")
                    local s = select("Mach ich!")
                    if s == 1 then
                        pc.remove_item(50050, 1)
                        horse.set_level(1)
                        horse.summon()
                        set_state(__COMPLETE__)
                    end
                elseif pc.count_item(50050) < 1 then
                    say_title("Stallbursche:")
                    say("")
                    say("Wenn du ein Pferd erwerben m�chtest, musst du")
                    say("zuerst eine Qualifikationspr�fung ablegen. Der")
                    say("erste Schritt der Pr�fung besteht darin, mir eine")
                    say("Pferdemedaille zu bringen. Du kannst sie im")
                    say("leichten Affendungeon in der zweiten Stadt")
                    say("bekommen. Die Affen werden sie dir aber nicht")
                    say("freiwillig �berlassen...")
                    say("")
                    local s2 = select("Okay")
                    if s2 == 1 then
                        set_state(find_pm)
                    end
                end
            end
        end
    end
    
    state find_pm begin
        when letter begin
            send_letter("Hole die Pferdemedaille")
        end
        
        when button or info begin
            say_title("Information:")
            say("")
            say("Bringe dem Stallburschen eine Pferdemedaille!")
            say("Dann kannst du den Reittraining-Auftrag")
            say("fortsetzen. Die Pferdemedaille bekommst du im")
            say("Affendungeon.")
            say("")
        end
        
        when kill with npc.get_race() == 5101 or npc.get_race() == 5102 or npc.get_race() == 5103 or npc.get_race() == 5104 begin
            local r = number(1, 200)
            if r == 149 then 
            game.drop_item_with_ownership(50050, 1)
            set_state(go_back)
            end
        end
    end
    
    state go_back begin
        when letter begin
            send_letter("Zur�ck zum Stallburschen")
            local v = find_npc_by_vnum(20349)
            if v != 0 then target.vid("__TARGET__", v, "Stallbursche")
            end
        end
        
        when button or info begin
            say_title("Information:")
            say("")
            say("Du hast eine Pferdemedaille gefunden. Mach dich")
            say("auf den Weg zur�ck zum Stallburschen.")
            say("")
        end
        
        when __TARGET__.target.click or 20349.chat."Pferdemedaille gefunden" begin
            target.delete("__TARGET__")
            if pc.count_item(50050) < 1 then
                say_title("Stallbursche:")
                say("")
                say("Willkommen zur�ck Abenteurer, wo ist denn deine")
                say("Pferdemedaille? Ich hoffe du hast sie auf dem Weg")
                say("zur�ck, nicht verloren. Die Qualifikationspr�fung")
                say("kannst du jederzeit wiederholen. Komm einfach wieder")
                say("und sprich mich darauf an.")
                say("")
                local s3 = select("Okay")
                if s3 == 1 then
                    set_state(start)
                end
            elseif pc.count_item(50050) >= 1 then
                say_title("Stallbursche:")
                say("")
                say("Willkommen zur�ck Abenteurer, du hast eine Pferdemedaille")
                say("gefunden. Die Qualifikationspr�fung hast du erfolgreich")
                say("bestanden. Wenn du mir nun die Pferdemedaille �berl�sst,")
                say("kann ich dir eins meiner Pferde aush�ndigen. Aber k�mmere")
                say("dich bitte gut darum. Ich habe sie selbst gez�chtet und")
                say("gro� gezogen.")
                say("")
                local s4 = select("Mach ich!")
                if s4 == 1 then
                    pc.remove_item(50050, 1)
                    horse.set_level(1)
                    horse.summon()
                    set_state(__COMPLETE__)
                end
            end
        end
    end
    
    state __COMPLETE__ begin
    end
end

Vielen Dank im voraus!

08/13/2020 09:22 Klugschei�er#12630

Quote:

Originally Posted by G.I Duke

Ich hoffe mal dass hier �berhaupt noch wer reinschaut :D
Keine Ahnung ich checks nicht, habs 200x kontrolliert aber mein Brain macht
bei der Hitze wohl nicht mehr richtig mit xD

Error occured on compile

Spoiler

PHP Code:

------------------- -- Quest by Duke -- ------------------- quest Pferd begin state start begin when 20349.chat."Ich m�chte reiten." begin if pc.get_level() <= 24 then say_title("Stallbursche:") say("") say("Um ein Pferd erwerben zu k�nnen musst du mindestens") say("Level 25 sein. Meiner Meinung nach musst du noch etwas") say("besser werden.") say("") say("Information:") say_reward("Komm wieder wenn du Level 25 bist.") say("") elseif pc.get_level() >= 25 then if pc.count_item(50050) >= 1 then say_title("Stallbursche:") say("") say("Wenn du ein Pferd erwerben m�chtest, musst du") say("zuerst eine Qualifikationspr�fung ablegen. Der") say("erste Schritt der Pr�fung besteht darin, mir eine") say("Pferdemedaille zu bri... oh du hast schon eine.") say("") wait() say_title("Stallbursche:") say("") say("Nun, da du bereits eine Pferdemedaille gefunden hast.") say("Wirst du die Qualifikationspr�fung erfolgreich bestanden") say("haben. Wenn du mir nun die Pferdemedaille �berl�sst, kann") say("ich dir eines meiner Pferde aush�ndigen. Aber k�mmere dich") say("bitte gut darum. Ich habe sie selbst gez�chtet und gro�") say("gezogen.") say("") local s = select("Mach ich!") if s == 1 then pc.remove_item(50050, 1) horse.set_level(1) horse.summon() set_state(__COMPLETE__) end elseif pc.count_item(50050) < 1 then say_title("Stallbursche:") say("") say("Wenn du ein Pferd erwerben m�chtest, musst du") say("zuerst eine Qualifikationspr�fung ablegen. Der") say("erste Schritt der Pr�fung besteht darin, mir eine") say("Pferdemedaille zu bringen. Du kannst sie im") say("leichten Affendungeon in der zweiten Stadt") say("bekommen. Die Affen werden sie dir aber nicht") say("freiwillig �berlassen...") say("") local s2 = select("Okay") if s2 == 1 then set_state(find_pm) end end end end end state find_pm begin when letter begin send_letter("Hole die Pferdemedaille") end when button or info begin say_title("Information:") say("") say("Bringe dem Stallburschen eine Pferdemedaille!") say("Dann kannst du den Reittraining-Auftrag") say("fortsetzen. Die Pferdemedaille bekommst du im") say("Affendungeon.") say("") end when kill with npc.get_race() == 5101 or npc.get_race() == 5102 or npc.get_race() == 5103 or npc.get_race() == 5104 begin local r = number(1, 200) if r == 149 then game.drop_item_with_ownership(50050, 1) set_state(go_back) end end end state go_back begin when letter begin send_letter("Zur�ck zum Stallburschen") local v = find_npc_by_vnum(20349) if v != 0 then target.vid("__TARGET__", v, "Stallbursche") end end when button or info begin say_title("Information:") say("") say("Du hast eine Pferdemedaille gefunden. Mach dich") say("auf den Weg zur�ck zum Stallburschen.") say("") end when __TARGET__.target.click or 20349.chat."Pferdemedaille gefunden" begin target.delete("__TARGET__") if pc.count_item(50050) < 1 then say_title("Stallbursche:") say("") say("Willkommen zur�ck Abenteurer, wo ist denn deine") say("Pferdemedaille? Ich hoffe du hast sie auf dem Weg") say("zur�ck, nicht verloren. Die Qualifikationspr�fung") say("kannst du jederzeit wiederholen. Komm einfach wieder") say("und sprich mich darauf an.") say("") local s3 = select("Okay") if s3 == 1 then set_state(start) end elseif pc.count_item(50050) >= 1 then say_title("Stallbursche:") say("") say("Willkommen zur�ck Abenteurer, du hast eine Pferdemedaille") say("gefunden. Die Qualifikationspr�fung hast du erfolgreich") say("bestanden. Wenn du mir nun die Pferdemedaille �berl�sst,") say("kann ich dir eins meiner Pferde aush�ndigen. Aber k�mmere") say("dich bitte gut darum. Ich habe sie selbst gez�chtet und") say("gro� gezogen.") say("") local s4 = select("Mach ich!") if s4 == 1 then pc.remove_item(50050, 1) horse.set_level(1) horse.summon() set_state(__COMPLETE__) end end end end state __COMPLETE__ begin end end

Vielen Dank im voraus!

Moin, deine if Anweisungen haben teilwiese kein else/elseif. Muss gestehen, dass ich die Sprache kaum kenne aber aus Interesse quer gelesen habe. Auf der ersten Seite war das einer der Fehler. Vielleicht hilft es ja, schaden wirds auf keinen Fall. :)

Page 842 of 845

842