[SERVICE] Die Questerstellung

Page 231 of 248 « First 131181221229230 231 232233241 Last »
05/08/2016 00:05 ライト#3451
Quote:
Originally Posted by ImbaSun View Post
Hallo Suche ne Quest Für map 1 Blau Gelb Rot (warpring)
PHP Code:
quest warp_quest begin
    state start begin
        when login or levelup begin
                send_letter("Teleportieren")
        end
        when button or info begin
            local a = select("Map1", "Schließen")
                if a == 1 then
                    local b = select("Rotes Reich Map1", "Gelbes Reich Map1", "Blaues Reich Map1", "Schließen")
                        if b == 4 then
                            return
                        end
                        if b == 1 then
                            pc.warp(474300, 954800)
                        end
                        if b == 2 then
                            pc.warp(63800, 166400)
                        end
                        if b == 3 then
                            pc.warp(959900, 269200)
                        end
                end
                if a == 2 then
                    return
                end
        end
    end
end 
05/12/2016 20:22 gerald500#3452
Quote:
Originally Posted by Kirito' View Post
PHP Code:
quest warp_quest begin
    state start begin
        when login or levelup begin
                send_letter("Teleportieren")
        end
        when button or info begin
            local a = select("Map1", "Schließen")
                if a == 1 then
                    local b = select("Rotes Reich Map1", "Gelbes Reich Map1", "Blaues Reich Map1", "Schließen")
                        if b == 4 then
                            return
                        end
                        if b == 1 then
                            pc.warp(474300, 954800)
                        end
                        if b == 2 then
                            pc.warp(63800, 166400)
                        end
                        if b == 3 then
                            pc.warp(959900, 269200)
                        end
                end
                if a == 2 then
                    return
                end
        end
    end
end 
PHP Code:
quest warp_quest begin
    state start begin
        when login or levelup begin
                send_letter("Teleportieren")
        end
        when letter begin
            send_letter("Teleportieren")
        end
        when button or info begin
            if select("Map1", "Schließen") == 2 then return end
            local b = select("Rotes Reich Map1", "Gelbes Reich Map1", "Blaues Reich Map1", "Schließen")
            local kords = {{474300, 954800},{63800, 166400},{959900, 269200}}
            if b == 4 then return end
            pc.warp(kords[b][1],kords[b][2])
        end
    end
end 
so ists besser ;-)

PS: man muss nicht immer ein select in eine variable packen wenn es nur zwei auswahlmöglichkeiten gibt
05/12/2016 23:32 Rofelmau#3453
Quote:
Originally Posted by gerald500 View Post
PHP Code:
quest warp_quest begin
    state start begin
        when login or levelup begin
                send_letter("Teleportieren")
        end
        when letter begin
            send_letter("Teleportieren")
        end
        when button or info begin
            if select("Map1", "Schließen") == 2 then return end
            local b = select("Rotes Reich Map1", "Gelbes Reich Map1", "Blaues Reich Map1", "Schließen")
            local kords = {{474300, 954800},{63800, 166400},{959900, 269200}}
            if b == 4 then return end
            pc.warp(kords[b][1],kords[b][2])
        end
    end
end 
so ists besser ;-)

PS: man muss nicht immer ein select in eine variable packen wenn es nur zwei auswahlmöglichkeiten gibt
PHP Code:
quest warp_quest begin
    state start begin
        when letter begin
            send_letter("Teleportieren")
        end
        when button or info begin
            if select("Map1", "Schließen") == 2 then return end
            local b = select("Rotes Reich Map1", "Gelbes Reich Map1", "Blaues Reich Map1", "Schließen")
            if b == 4 then return end
 local kords = ({{474300, 954800},{63800, 166400},{959900, 269200}})[b]
            pc.warp(kords[1],kords[2])
        end
    end
end 
so ist's besser ;-)
05/13/2016 11:42 [SA]Destroyer#3454
Hallo Suche jemanden der mir Event quest schreibt

Event Beschreibung spenden NPC xy Yang wen die vorgebende Summe erreicht ist startet das Event für alle. In meinen Fall ein alternative drop.

Was muss die quest enthalten?

Quest sollte eine gespendet Yang anzeige haben. Natürlich sollte das Yang gespendet Yang verschwinden, wen genug gespendet wurde. Per quest event dauer definieren nach ablauf der zeit endet das event auch.

Ich bin bereit 10 psc zu geben, wen der Aufwand hoch ist und die Qualität stimmt.
05/13/2016 12:09 gerald500#3455
Quote:
Originally Posted by Rofelmau View Post
PHP Code:
quest warp_quest begin
    state start begin
        when letter begin
            send_letter("Teleportieren")
        end
        when button or info begin
            if select("Map1", "Schließen") == 2 then return end
            local b = select("Rotes Reich Map1", "Gelbes Reich Map1", "Blaues Reich Map1", "Schließen")
            if b == 4 then return end
 local kords = ({{474300, 954800},{63800, 166400},{959900, 269200}})[b]
            pc.warp(kords[1],kords[2])
        end
    end
end 
so ist's besser ;-)
ahja daran hab ich garnicht gedacht ^^ allerdings bekommt man bei dir den brief gar nie xD
05/13/2016 16:43 Rofelmau#3456
äm ja doch bekommt man.
Außerdem wenn das when letter send_letter nichts bringt, warum hast du es denn in deiner version drin ;)


@[Only registered and activated users can see links. Click Here To Register...]
Kurzes Grunderüst.
PHP Code:
quest event begin
    state start begin
        when 9010.chat."Spenden" with game.get_event_flag("event") == 0 begin
            say("Es ist "..game.get_event_flag("yang").." Yang gespendet worden.")
            say("")
            say("Möchtest du etwas Spenden?")
            say("")
            if select("Ja","Nein") == 2 then return end
            say("Wie viel möchtest du spenden?")
            say("")
            local s = tonumber(input())
            if s > pc.get_gold() then
                say("Du besitzt nicht so viel Yang")
                return
            end
            pc.change_gold(-s)
            local yang = game.get_event_flag("yang")+2
            game.set_event_flag("yang",yang)
            if s >= 10000000000000 then
                game.set_event_flag("yang",0)
                game.set_event_flag("event",1)
                notice_all("Das Event wurde gestartet")
                server_timer("event",60*60*2)
            end
        end
        when event.server_timer begin
            notice_all("Das event ist zuende.")
            game.set_event_flag("event",0)
        end
    end
end 
05/13/2016 18:32 gerald500#3457
@[Only registered and activated users can see links. Click Here To Register...] Weil man den Brief nach Benutzung wieder bekommen soll und den trigger kann man ja nicht auslösen wenn man den Brief nicht hat

Gesendet von meinem S30 mit Hilfe von Elitepvpers, bereitgestellt von appyet.com
05/13/2016 18:58 Rofelmau#3458
Quote:
Originally Posted by gerald500 View Post
@[Only registered and activated users can see links. Click Here To Register...] Weil man den Brief nach Benutzung wieder bekommen soll und den trigger kann man ja nicht auslösen wenn man den Brief nicht hat

Gesendet von meinem S30 mit Hilfe von Elitepvpers, bereitgestellt von appyet.com
Also bekommt man den Brief ja doch. eben meintest du noch man bekommt den nie bei meiner version
außerdem ist der Unter N-Quests und wenn du portest gibts den eh wieder neu...
05/14/2016 12:49 [Flash]#3459
Guten Tag,
ich suche einen Python & Quest coder.
Ich bezahle auch gut dafür!

Skype: ching.ling123
05/15/2016 12:28 Red Firestar#3460
Es wäre sehr nett wenn mir jemand eine Quest erstellen könnte die alle 24 Stunden Usern eine Belohnung gibt, wenn sie sich immer nach 24 Stunden erneut einloggen.
Also so was wie tägliche Belohnung.
05/15/2016 14:20 Rofelmau#3461
Quote:
Originally Posted by Red Firestar View Post
Es wäre sehr nett wenn mir jemand eine Quest erstellen könnte die alle 24 Stunden Usern eine Belohnung gibt, wenn sie sich immer nach 24 Stunden erneut einloggen.
Also so was wie tägliche Belohnung.
PHP Code:
quest belohnung begin
    state start begin
        when login with pc.getqf("waittime") < get_time() begin
            pc.give_item2(vnum,anzahl)
            pc.setqf("waittime",get_time()+60*60*24)
        end
    end
end 
05/15/2016 22:09 .SmartBoosterZ#3462
Hallo liebe Leute,

benötige eine Quest in der man für einen bestimmten Zeitraum z.B. [VIP] vor den Namen bekommt wenn man ein Item im Inventar hat. Dies sollte allerdings nicht permanent sein, sondern nur wie gesagt für einen kurzen Zeitraum von 7 Tagen, da diese Items auch ablaufen.. Wenns geht sollte es noch möglich sein beliebige Boni auch über den Zeitraum hinzuzufügen z.B. 15% Monster oder 10k TP.. Sobald die Zeit abgelaufen ist, sollte man wieder den normalen Namen erhalten ohne wie oben im Beispiel genannt [VIP].

Wäre cool wenn mir dabei jemand behilflich sein könnte.
Könnt mich gerne auch bei Skype adden. Bin bereit auch ein paar Euro dafür zu bezahlen.

Skype: SmartBoosterZ
05/16/2016 15:07 .FinalUnited™#3463
Heyjo Leute,

ich habe ein Problem unzwar benutze ich die Kori Serverfiles 1.3 und möchte da nun beim Seelenstein die Rangpunkte entfernen. Welche Inhalte muss ich da löschen damit es ohne Rangpunkte funktioniert. In der Translate.lua steht ja der Text für die InGame quest. Zu den Techstufen jetz, habe die Game Rev. 8029( laut der Game vom Hex editor).

Das ist die Quest zu dem Seelenstein:


und hier ein kleiner Ausschnitt von der Game:

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

Ich hoffe ihr könnt mir weiter helfen. Bitte um schnelle Antworten.
05/17/2016 16:33 Jantux#3464
Quote:
Originally Posted by .FinalUnited™ View Post
Heyjo Leute,

ich habe ein Problem unzwar benutze ich die Kori Serverfiles 1.3 und möchte da nun beim Seelenstein die Rangpunkte entfernen. Welche Inhalte muss ich da löschen damit es ohne Rangpunkte funktioniert. In der Translate.lua steht ja der Text für die InGame quest. Zu den Techstufen jetz, habe die Game Rev. 8029( laut der Game vom Hex editor).

Das ist die Quest zu dem Seelenstein:


und hier ein kleiner Ausschnitt von der Game:

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

Ich hoffe ihr könnt mir weiter helfen. Bitte um schnelle Antworten.

Was genau meinst du mit "Rangpunkte" entfernen?Das man nach dem Fehlgeschlagenen Lesen keine Rangpunkte verlieren soll?
Wenn du das meinst:

PHP Code:
quest training_grandmaster_skill begin
    state start begin
        when 50513.use begin
            if pc.get_skill_group() == 0 then
                say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                say(gameforge.training_grandmaster_skill._20_say)
                return
            end

            if get_time() < pc.getqf("next_time") then
                if pc.is_skill_book_no_delay() then
                    say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                    say(gameforge.training_grandmaster_skill._30_say)
                    wait()
                else
                    say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                    say(gameforge.training_grandmaster_skill._40_say)
                    return
                end
            end

            local result = training_grandmaster_skill.BuildGrandMasterSkillList(pc.get_job(), pc.get_skill_group())

            local vnum_list = result[1]
            local name_list = result[2]

            if table.getn(vnum_list) == 0 then
                say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                say(gameforge.training_grandmaster_skill._50_say)
                return
            end
            say_title(gameforge.training_grandmaster_skill._10_sayTitle)
            say(gameforge.training_grandmaster_skill._60_say)

            local menu_list = {}
            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
            table.insert(menu_list, gameforge.locale.cancel) 

            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]
            local skill_level = pc.get_skill_level(skill_vnum)
            local cur_alignment = pc.get_real_alignment()
            local need_alignment = 1000+500*(skill_level-30)

            test_chat(string.format(gameforge.training_grandmaster_skill._70_chat, cur_alignment..gameforge.training_grandmaster_skill._75_chat..need_alignment))

            local title=string.format(gameforge.training_grandmaster_skill._80_stringFormat, skill_name, skill_level-30+1)

            say_title(gameforge.training_grandmaster_skill._10_sayTitle)
            say(gameforge.training_grandmaster_skill._90_say)

            if cur_alignment<-19000+need_alignment then
                say_reward(gameforge.training_grandmaster_skill._100_sayReward)
                                return
            end

            if cur_alignment<0 then
say_reward(string.format(gameforge.training_grandmaster_skill._110_sayReward, need_alignment, need_alignment*2))
                say_reward(gameforge.training_grandmaster_skill._120_sayReward)
                need_alignment=need_alignment*2
            elseif cur_alignment<need_alignment then
say_reward(string.format(gameforge.training_grandmaster_skill._130_sayReward, need_alignment))
                say_reward(gameforge.training_grandmaster_skill._140_sayReward)
            else
say_reward(string.format(gameforge.training_grandmaster_skill._130_sayReward, need_alignment))
            end
                
            local s= select(gameforge.locale.levelup.prev_quest_go, gameforge.locale.cancel)    
            
            if s==2 then
                return
            end


            if cur_alignment>=0 and cur_alignment<need_alignment then
say_title(title)
                say_reward(gameforge.training_grandmaster_skill._150_sayReward)
                say(gameforge.training_grandmaster_skill._160_say)
                say_reward(gameforge.training_grandmaster_skill._170_sayReward)
                say(gameforge.training_grandmaster_skill._180_say)
                local s=input()
                s = string.gsub(s, "(%a*)%s*", "%1")
                s = string.lower(string.gsub(s, "(%a*)%s*", "%1"))

                local t = string.gsub(gameforge.training_grandmaster_skill._10_answer, "(%a*)%s*", "%1")
                t = string.lower(string.gsub(gameforge.training_grandmaster_skill._10_answer, "(%a*)%s*", "%1"))
                
                if s!=t then
                    return
                end
            end

            if get_time() < pc.getqf("next_time") then
                if pc.is_skill_book_no_delay() then
                    pc.remove_skill_book_no_delay()
                else
                    say_title(gameforge.training_grandmaster_skill._10_sayTitle)
                    return
                end
            end

            pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12)))


            if need_alignment>0 then
                if pc.count_item(50513) > 0 then
                    if pc.learn_grand_master_skill(skill_vnum) then
                        say_title(title)
                        say_reward(gameforge.training_grandmaster_skill._190_sayReward)

                        if 40 == pc.get_skill_level(skill_vnum) then
                            say(gameforge.training_grandmaster_skill._200_say)
                            say(string.format(gameforge.training_grandmaster_skill._210_say, skill_name))
                            say(gameforge.training_grandmaster_skill._220_say)
                        else
                            say(gameforge.training_grandmaster_skill._230_say)
                            say(string.format(gameforge.training_grandmaster_skill._240_say, skill_name, skill_level-30+1+1))
                        end
                        say_reward(gameforge.training_grandmaster_skill._250_sayReward)
                        say_reward(string.format(gameforge.training_grandmaster_skill._260_sayReward, need_alignment))
                    else
                        say_title(title)
                        say_reward(gameforge.training_grandmaster_skill._270_sayReward)
                        say(gameforge.training_grandmaster_skill._280_say)
                        say_reward(gameforge.training_grandmaster_skill._290_sayReward)
                    end
                    pc.remove_item(50513)
                else
                    char_log(0, "HACK 50513", pc.getname())
                end
            end
        end

        function BuildGrandMasterSkillList(job, group)
            GRAND_MASTER_SKILL_LEVEL = 30
            PERFECT_MASTER_SKILL_LEVEL = 40

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

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

            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
    end
end 
Wurde getestet und funktioniert.


Mfg
05/17/2016 20:40 .FinalUnited™#3465
Ein anderer hat mir das auch schon umgeschrieben und funktioniert auch aber trotzdem Danke.
Page 231 of 248 « First 131181221229230 231 232233241 Last »