[Release]Quest

05/22/2013 13:41 .DerGerät#1
Hallo liebe Com,

da mein "Partner" anscheinend nicht Kritikfähig war bzw. ist oder einfach nur unkontrollierte Wutausbrüche hat und die gesamte Datenbank gelöscht hat weil er seine 5 Minuten hatte, release ich euch nun meine Quest.
Wer Sie haben will kann Sie haben wer es nicht braucht bzw. Meint seine unnötigen Kommentare hier freien lauf zu lassen, wird gemeldet.

PHP Code:
    ----------------------------------
    -- 
LvL 20 Quest by .DerGerät
    
----------------------------------
quest lagi begin
    state start begin
        when login 
or levelup with pc.level>19 begin
            set_state
(talk_to_disciple_lv20)
        
end    
    end
    state talk_to_disciple_lv20 begin
        when letter begin
            local v 
find_npc_by_vnum(9005)
            if 
!= 0 then target.vid("__TARGET__"v"Lagerverwalter")
            
end
            send_letter
("Der Lagerverwalter")
        
end
        when button 
or info begin
            say_title
("Der Lagerverwalter braucht dich!")
            
say("")
            
say("Der Lagerverwalter benoetigt deine Hilfe.")
            
say("Sprich mit ihm.")
            
say("")
            
say_reward("Sprich mit dem Lagerverwalter bevor es zu spaet ist !")
            
say("")
        
end
        when __TARGET__
.target.click or 9005.chat."Seelensteine" begin
            target
.delete("__TARGET__")
            
say("Lagerverwalter::")
            
say("")
            
say("Hallo Synchron2 Spieler!")
            
say("Gut ...")
            
say("Ich bin uebrigens der Chef was Lager und Logistig angeht.")
            
say("Vor 2 Tagen hat ein rudel Wildhunde mich angegriffen und mir ist meine Ware verloren gegangen.")
            
say("Der Kunde wartet schon sehensuechtig auf seine Seelensteine , koenntest du mir helfen,")
            
say("die Seelensteine wieder zu bekommen?.")
            
say("")
            
wait()
            
say("Lagerverwalter:")
            
say("Seelensteine findest du wenn du Metins in der Farmmap zerstoerst.")
            
say("Diese sind nicht sehr seltend, jedoch schwer zu bekommen, da die Metins stark sind.")
            
say("Jedoch siehst du mir sehr stark aus!")
            
say("es waehre also eine Elde Tat wenn du mir helfen wuerdest.")
            
say("")
            
wait()
            
say("Lagerverwalter:")
            
say("Ich benoetige 5 Seelensteine.")
            
say("Diese sind jedoch sehr unterschiedlich was die Qualitaet angeht,")
            
say("es kann also sein, dass einige bei")
            
say("meiner Nachpruefung nicht zu gebrauchen sind.")
            
say("Ich benoetige nochmals genau 5 !")
            
say("um meinen Auftrag vollenden zu koennen.")
            
say("")
            
set_state(collect_soulstone)
            
pc.setqf("duration",0)
            
pc.setqf("collect_count",0)
        
end
    end
    state collect_soulstone begin
        when letter begin
            send_letter
("Finde die Seelensteine")
        
end
        when button 
or info begin
            say_title
("Seelensteine")
            
say("")
            
say("Der Lagerverwalter gab euch den Auftrag,")
            
say("5 Seelensteine zu sammeln.")
            
say("Sammelt und bringt sie dem Lagerverwalter.")
            
say("")
            
say_item_vnum(50513
            
say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
            
say("")
        
end
        when 9005.chat
."Seelensteine" with pc.count_item(50513)>0 begin
            
if get_time()>pc.getqf("duration"then
                say
("Einen Moment ...")
                
say("Vielen Dank,")
                
say("lasst mich schnell ueberpruefen")
                
say("ob dieser Stein in Ordnung ist ...")
                
say("")
                
pc.remove_item("50513"1)
                
pc.setqf("duration",get_time() + 60*5*0)
                
wait()
                
local rand number(0,99)
                if 
rand<50 then
                    local count 
pc.getqf("collect_count")+1
                    
if count<5 then
                        pc
.setqf("collect_count"count)
                        
say("Lagerverwalter:")
                        
say("Hervorragend, dieser Seelenstein ist in Ordnung.")
                        
say("Bringt mir noch welche, damit ich meinen")
                        
say("Auftrag abschließen kann.")
                        
say("")
                        
say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
                        
say("")
                    else 
                        
say("Lagerverwalter:")
                        
say("Du hast mir die 5 Stueck gebracht...")
                        
say("Nun bitte ich dich noch, mir den")
                        
say("Jinunggyis Seelenstein zu bringen.")
                        
say("Du bekommst ihn von Stolzen Orks ...")    
                        
say("Ich denke, dafuer bist du stark genug.")
                        
say("")
                        
pc.setqf("collect_count",0)
                        
pc.setqf("duration",0
                        
set_state(collect_jinunggyis)
                    
end
                
else                                
                    
say("Lagerverwalter:")
                    
say("Es tut mir leid, aber der Seelenstein ist bei")
                    
say("den Untersuchungen kaputt gegangen.")
                    
say("Bitte hol mir einen neuen!")
                    
say("")
                
end
            
else
                
say("Lagerverwalter:")
                
say("Entschuldige, ich habe die letzten")
                
say("ueberpruefungen noch nicht beendet ...")
                
say("Ich kann nur alle 5 Minuten einen Stein kontrollieren!.")
                
say("Komm spaeter nochmal wieder!")
            
end
        end
    end
    state collect_jinunggyis begin
        when letter begin
            send_letter
("Jinunggyis Seelenstein")
        
end
        when button 
or info begin
            say_title
("Jinunggyis Seelenstein")
            
say("")
            
say("Ihr habt alle 5 Seelensteine gesammelt.")
            
say("Nun muesst ihr Jinunggyis Seelenstein erbeuten.")
            
say("")
            
say_item_vnum(30220)
            
say("Ob dieser Stein tatsaechlich eine Seele enthaelt?")
            
say("")
        
end
        when 601.kill 
or 602.kill or 603.kill or 604.kill begin
            
if pc.count_item(30220)<1 then
                local rand 
number(0,99)
                if 
rand<5 then pc.give_item2(302201)
                
end
            end    
        end
        when 9005.chat
."Jinunggyis Seelenstein" begin
            
if pc.count_item(30220)>0 then
                say
("Lagerverwalter:")
                
say("Dank deiner Hilfe kann ich nun miene")
                
say("Ware ausliefern.")
                
say("Du hast hart gekaempft.")
                
say("Sprich mit der Gemi, sie wird dir helfen,")
                
say("deine inneren Kraefte zu steigern.")
                
say("")
                
pc.remove_item(30220,1)
                
set_state(jinunggyis_reward)
            else
                
say("Lagerverwalter:")
                
say("Du hast mir die 5 Stueck gebracht...")
                
say("Nun bitte ich dich noch, mir den")
                
say("Jinunggyis Seelenstein zu bringen.")
                
say("Du bekommst ihn von:")    
                
say("Ork, Ork-Spaeher, Ork-Kaempfer, Ork-Zauberer")
                
say("Viel Glueck!")        
            
end
        end
    end    
    state jinunggyis_reward begin
        when letter begin
            send_letter
("Die Gemischwarenhaendlerin")
            
local v find_npc_by_vnum(9010)
            if 
!= 0 then target.vid("__TARGET__"v"Doktor")
            
end
        end
        when button 
or info begin
            say
("Um die Belohnung zu erhalten musst du")
            
say("die Gemischwarenhaendlerin aufsuchen.")
            
say("Sie wird dir sagen was als naechtes zu tun ist.")
            
say("")
        
end
        when __TARGET__
.target.click  or 9010.chat."Belohnung der Gemi" begin
            target
.delete("__TARGET__")
            
say_title("Gemi:")
            
say("Ich habe gehoert,")
            
say("du hast dem Lagerverwalter geholfen meine Ware wieder zu finden.")
            
say("das war sehr heldenhaft!")
            
say("Hier ist deine Belohnung:")
            
say("")
            
say_reward("Du erhaelst:")
            
say_reward("Ein Regenbogenstein")
            
say_reward("Eine Wunderkiste")
            
say_reward("2 Millionen Yang")
            
say("")
            
pc.give_item2("30230")
            
pc.give_item2("30231")
            
pc.give_gold(200000)
        
end
    end
end 

Viel Spaß damit!

Ihr könnt die Items die man bekommt auch gerne ändern. Ziel der Quest ist es dem Lagerverwalter seine Verlorene Ware wieder zu besorgen und eine Entschädigung für die Gemi zu finden, die etwas länger auf die Ware warten musste.


Mit freundlichen Grüßen

.DerGerät
05/22/2013 13:45 Stαgє6#2
Danke fürs teilen werden bestimmt paar nutzen.
05/22/2013 13:46 ImShine™#3
Selber geschrieben von dir, nice quest
05/22/2013 14:01 lfcmaus#4
wenn du ansi kodierung verwendest kannst du umlaute darstellen also tipp
05/22/2013 14:02 [ViP]Nereus#5
Danke :)
Werde ich sofort einbauen wenn ich an meinem Server wieder Arbeite
Thanks
05/22/2013 17:52 .DerGerät#6
Quote:
Originally Posted by [ViP]Nereus View Post
Danke :)
Werde ich sofort einbauen wenn ich an meinem Server wieder Arbeite
Thanks

Freut mich das zu hören :)
05/22/2013 18:04 .PolluX#7
schaut doch ganz nice aus, danke fürs teilen. :)
Mal schauen ob ich verwendung dafür finde ;)
05/22/2013 18:13 Fliegex3#8
Sieht ganz gut aus.
05/22/2013 18:40 Red Firestar#9
.DerGerät baba like wie immer x3
05/22/2013 19:12 .iFantastic™#10
Danke für's Teilen !
05/22/2013 19:18 Marsia#11
Sie seht sehr gut aus jedoch ist es doch eig nur eine Bio quest bei der man nen anderen anderen Npc finden muss mehr nicht oder?
05/22/2013 19:45 .DerGerät#12
Quote:
Originally Posted by Marsia View Post
Sie seht sehr gut aus jedoch ist es doch eig nur eine Bio quest bei der man nen anderen anderen Npc finden muss mehr nicht oder?
N E I N.


Als Vorlage galt die Bio Quest und diente als Hilfe.
Für Funktionen etc. über die mein Wissen nicht verfügt.
Wenn du beide Quests vergleichst merkst du die Unterschiede.

Gruß.