daily pastebin goal
3%
SHARE
TWEET

Untitled

a guest Jan 12th, 2018 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. quest biologist_sequence begin
  2.  
  3.     ----------------------------------
  4.     -- LvL 30 / Orkzähne
  5.     ----------------------------------
  6.     state start begin
  7.         when login or levelup with pc.level>29 begin
  8.             set_state(talk_to_disciple_lv30)
  9.         end    
  10.     end
  11.     state talk_to_disciple_lv30 begin
  12.         when letter begin
  13.             local v = find_npc_by_vnum(20084)
  14.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  15.             end
  16.             send_letter("Die Forschung des Biologen")
  17.         end
  18.         when button or info begin
  19.             say_title("Die Forschung des Biologen")
  20.             say("")
  21.             say("Der Biologe benötigt deine Hilfe.")
  22.             say("Sprich mit ihm.")
  23.             say("")
  24.             say_reward("Sprich mit dem Biologen")
  25.             say("")
  26.         end
  27.         when __TARGET__.target.click or 20084.chat."Orkzähne" begin
  28.             target.delete("__TARGET__")
  29.             say("Biologe:")
  30.             say("")
  31.             say("Oh, du hilfst mir?")
  32.             say("Gut ...")
  33.             say("Ich bin übrigens der Biologe")
  34.             say("und studiere zahlreiches aus der Pflanzenwelt.")
  35.             say("Wenn du mir bei meinen Forschungen hilfst,")
  36.             say("werde ich dich reich belohnen.")
  37.             say("")
  38.             wait()
  39.             say("Biologe:")
  40.             say("Ich habe vor kurzem wieder angefangen ...")
  41.             say("Ich Forsche an einer Legende ...")
  42.             say("Doch habe ich derzeit viel zu tun,")
  43.             say("es währe also nett, wenn du mir hilfst ...")
  44.             say("")
  45.             wait()
  46.             say("Biologe:")
  47.             say("Ich benötige zehn Orkzähne für meine Forschungen.")
  48.             say("Diese sind jedoch sehr zerbrechlich,")
  49.             say("es kann also sein, dass einige bei")
  50.             say("meinen Untersuchungen kaputt gehen.")
  51.             say("Ich benötige alle zehn,")
  52.             say("um meine Forschungen vollenden zu können.")
  53.             say("")
  54.             set_state(collect_orcteeth)
  55.             pc.setqf("duration",0)
  56.             pc.setqf("collect_count",0)
  57.         end
  58.     end
  59.     state collect_orcteeth begin
  60.         when letter begin
  61.             send_letter("Die Forschung des Biologen")
  62.         end
  63.         when button or info begin
  64.             say_title("Orkzähne")
  65.             say("")
  66.             say("Der Biologe gab euch den Auftrag,")
  67.             say("zehn Orkzähne zu sammeln.")
  68.             say("Sammelt und bringt sie dem Biologen.")
  69.             say("")
  70.             say_item_vnum(30006)  
  71.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  72.             say("")
  73.         end
  74.         when 20084.chat."Orkzähne" with pc.count_item(30006)>0 begin
  75.             if get_time()>pc.getqf("duration") then
  76.                 say("Einen Moment ...")
  77.                 say("Vielen Dank,")
  78.                 say("lasst mich schnell überprüfen")
  79.                 say("ob dieser Zahn in Ordnung ist ...")
  80.                 say("")
  81.                 pc.remove_item("30006", 1)
  82.                 pc.setqf("duration",get_time()+0)
  83.                 wait()
  84.                 local rand = number(0,99)
  85.                 if rand<50 then
  86.                     local count = pc.getqf("collect_count")+1
  87.                     if count<10 then
  88.                         pc.setqf("collect_count", count)
  89.                         say("Biologe:")
  90.                         say("Hervorragend, dieser Zahn ist in Ordnung.")
  91.                         say("Bringt mir noch welche, damit ich meine")
  92.                         say("Forschungen abschließen kann.")
  93.                         say("")
  94.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  95.                         say("")
  96.                     else  
  97.                         say("Biologe:")
  98.                         say("Du hast mir die 10 Stück gebracht...")
  99.                         say("Nun bitte ich dich noch, mir den")
  100.                         say("Jinunggyis Seelenstein zu bringen.")
  101.                         say("Du bekommst ihn von Stolzen Orks ...")    
  102.                         say("Ich denke, dafür bist du stark genug.")
  103.                         say("")
  104.                         pc.setqf("collect_count",0)
  105.                         pc.setqf("duration",0)  
  106.                         set_state(collect_jinunggyis)
  107.                     end
  108.                 else                                
  109.                     say("Biologe:")
  110.                     say("Es tut mir leid, aber der Zahn ist bei")
  111.                     say("den Untersuchungen zerbrochen.")
  112.                     say("Bitte hol mir einen neuen Orkzahn!")
  113.                     say("")
  114.                 end
  115.             else
  116.                 say("Biologe:")
  117.                 say("Entschuldige, ich habe die letzten")
  118.                 say("Studien noch nicht beendet ...")
  119.                 say("Bitte bring mir den Zahn später.")
  120.                 say("")
  121.             end
  122.         end
  123.     end
  124.     state collect_jinunggyis begin
  125.         when letter begin
  126.             send_letter("Jinunggyis Seelenstein")
  127.         end
  128.         when button or info begin
  129.             say_title("Jinunggyis Seelenstein")
  130.             say("")
  131.             say("Ihr habt alle zehn Orkzähne gesammelt.")
  132.             say("Nun müsst ihr Jinunggyis Seelenstein erbeuten.")
  133.             say("")
  134.             say_item_vnum(30220)
  135.             say("Ob dieser Stein tatsächlich eine Seele enthält?")
  136.             say("")
  137.         end
  138.         when 635.kill or 636.kill or 637.kill begin
  139.             if pc.count_item(30220)<1 then
  140.                 local rand = number(0,99)
  141.                 if rand<5 then pc.give_item2(30220, 1)
  142.                 end
  143.             end    
  144.         end
  145.         when 20084.chat."Jinunggyis Seelenstein" begin
  146.             if pc.count_item(30220)>0 then
  147.                 say("Biologe:")
  148.                 say("Dank deiner Hilfe verstehe ich nun")
  149.                 say("die Legende um Jinunggyis Seelenstein.")
  150.                 say("Du hast hart gekämpft.")
  151.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  152.                 say("deine inneren Kräfte zu steigern.")
  153.                 say("")
  154.                 pc.remove_item(30220,1)
  155.                 set_state(jinunggyis_reward)
  156.             else
  157.                 say("Biologe:")
  158.                 say("Du hast mir die 10 Stück gebracht...")
  159.                 say("Nun bitte ich dich noch, mir den")
  160.                 say("Jinunggyis Seelenstein zu bringen.")
  161.                 say("Du bekommst ihn von Stolzen Orks ...")    
  162.                 say("Ich denke, dafür bist du stark genug.")
  163.                 say("")        
  164.             end
  165.         end
  166.     end    
  167.     state jinunggyis_reward begin
  168.         when letter begin
  169.             send_letter("Sprich mit Baek-Go")
  170.             local v = find_npc_by_vnum(20018)
  171.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  172.             end
  173.         end
  174.         when button or info begin
  175.             say("Um die Belohnung des Biologen zu erhalten")
  176.             say("suche mit den Informationen der")
  177.             say("Orkzähne und des Seelensteins Baek-Go auf.")
  178.             say("")
  179.         end
  180.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  181.             target.delete("__TARGET__")
  182.             say_title("Baek-Go:")
  183.             say("Ich sehe ...")
  184.             say("Der Biologe hat dich zu mir geschickt.")
  185.             say("Hier ist deine Belohnung:")
  186.             say("")
  187.             say_reward("Du erhälst:")
  188.             say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)")
  189.             say("")
  190.             affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
  191.             set_state(collect_quest_lv40)
  192.         end
  193.     end
  194.  
  195.     ----------------------------------
  196.     -- LvL 40 / Fluchsammlung
  197.     ----------------------------------
  198.     state collect_quest_lv40 begin
  199.         when login or levelup with pc.level>39 begin
  200.             set_state(talk_to_disciple_lv40)
  201.         end    
  202.     end
  203.     state talk_to_disciple_lv40 begin
  204.         when letter begin
  205.             local v = find_npc_by_vnum(20084)
  206.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  207.             end
  208.             send_letter("Forschung des Biologen Nr. 2")
  209.         end
  210.         when button or info begin
  211.             say_title("Forschung des Biologen Nr. 2")
  212.             say("")
  213.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  214.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  215.             say("nach speziellen Gegenständen.")
  216.             say("Sprich mit ihm,")
  217.             say("um eine genauere Beschreibung zu erhalten.")
  218.             say("")
  219.             say_reward("Sprich mit dem Biologen")
  220.             say("")
  221.         end
  222.         when __TARGET__.target.click or 20084.chat."Fluchbücher" begin
  223.             target.delete("__TARGET__")
  224.             say("Biologe:")
  225.             say("Gut, dass du gekommen bist...")
  226.             say("Die Untersuchung der Orkzähne")
  227.             say("habe ich abgeschlossen.")
  228.             say("Nun habe ich neue Objekte gefunden,")
  229.             say("die ich gerne untersuchen würde.")
  230.             wait()
  231.             say("Biologe:")
  232.             say("Ich würde sie ja selber sammeln,")
  233.             say("aber ich habe zuviel zu tun...")
  234.             say("Es wäre sehr nett, wenn du dies")
  235.             say("für mich erledigen könntest.")
  236.             wait()
  237.             say("Biologe:")
  238.             say("Ich möchte die Fluchbücher untersuchen.")
  239.             say("Davon benötige ich 15 Stück.")
  240.             say("Die Bücher sind jedoch ziemlich alt,")
  241.             say("manchmal zerfallen sie einfach!")
  242.             say("")                                                                                                                                                          
  243.             set_state(collect_cursebook)
  244.             pc.setqf("duration",0)
  245.             pc.setqf("collect_count",0)
  246.         end
  247.     end
  248.     state collect_cursebook begin
  249.         when letter begin
  250.             send_letter("Forschung des Biologen Nr. 2")
  251.         end
  252.         when button or info begin
  253.             say_title("Fluchsammlungen")
  254.             say("")
  255.             say("Der Biologe gab euch den Auftrag,")
  256.             say("15 Fluchsammlungen zu besorgen.")
  257.             say("Diese kannst du bei den Dunklen- und")
  258.             say("Hohen Peinigern erbeuten.")
  259.             say("")
  260.             say_item_vnum(30047)  
  261.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  262.             say("")
  263.         end
  264.         when 20084.chat."Fluchsammlungen" with pc.count_item(30047)>0 begin
  265.             if get_time()>pc.getqf("duration") then
  266.                 say("Einen Moment ...")
  267.                 say("Vielen Dank,")
  268.                 say("lasst mich schnell überprüfen")
  269.                 say("ob dieser Zahn in Ordnung ist ...")
  270.                 say("")
  271.                 pc.remove_item("30047", 1)
  272.                 pc.setqf("duration",get_time()+0)
  273.                 wait()
  274.  
  275.                 local rand = number(0,99)
  276.                 if rand<50 then
  277.                     local count = pc.getqf("collect_count")+1
  278.                     if count<15 then
  279.                         pc.setqf("collect_count", count)
  280.                         say("Biologe:")
  281.                         say("Hervorragend, diese Fluchsammlung ist in Ordnung.")
  282.                         say("Bringt mir noch welche, damit ich meine")
  283.                         say("Forschungen abschließen kann.")
  284.                         say("")
  285.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  286.                         say("")
  287.                     else  
  288.                         say("Biologe:")
  289.                         say("Du hast mir die 15 Sammlungen gebracht.")
  290.                         say("Nun, ich habe noch eine Bitte.")
  291.                         say("Ich benötige den Tempelseelenstein,")
  292.                         say("den du von Stolzen dunklen Fanatikern,")
  293.                         say("Kämpfern, sowie Obersten erbeuten kannst.")
  294.                         say("Ich denke, dafür bist du stark genug.")
  295.                         say("")
  296.                         pc.setqf("collect_count",0)
  297.                         pc.setqf("duration",0)
  298.                         set_state(collect_templekey)
  299.                     end
  300.                 else                                
  301.                     say("Biologe:")
  302.                     say("Es tut mir leid, die Fluchsammlung")
  303.                     say("ist bei den Untersuchungen zerfallen.")
  304.                     say("Bitte hol mir eine neue Fluchsammlung.")
  305.                 end
  306.             else
  307.                 say("Biologe:")
  308.                 say("Entschuldige, ich habe die letzten")
  309.                 say("Studien noch nicht beendet ...")
  310.                 say("Bitte bring mir die Fluchsammmlung später.")
  311.             end
  312.         end
  313.     end
  314.     state collect_templekey begin
  315.         when letter begin
  316.             send_letter("Tempelseelenstein")
  317.         end
  318.         when button or info begin
  319.             say_title("Tempelseelenstein")
  320.             say("")
  321.             say("Ihr habt alle 15 Fluchsammlungen abgegeben.")
  322.             say("Nun müsst ihr den Tempelseelenstein erbeuten.")
  323.             say("")
  324.             say_item_vnum(30221)
  325.             say("Ob dieser Stein tatsächlich Seelen")
  326.             say("der Tempelanhänger enthält?")
  327.             say("")
  328.         end
  329.         when 635.kill or 636.kill or 637.kill begin
  330.             if pc.count_item(30221)<1 then
  331.                 local rand = number(0,99)
  332.                 if rand<5 then pc.give_item2(30221, 1)
  333.                 end
  334.             end    
  335.         end
  336.         when 20084.chat."Tempelseelenstein" begin
  337.             if pc.count_item(30221)>0 then
  338.                 say("Biologe:")
  339.                 say("Dank deiner Hilfe verstehe ich nun")
  340.                 say("die Legende um den Tempelseelenstein.")
  341.                 say("Du hast hart gekämpft.")
  342.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  343.                 say("deine inneren Kräfte zu steigern.")
  344.                 say("")
  345.                 pc.remove_item(30221,1)
  346.                 set_state(templekey_reward)
  347.             else
  348.                 say("Biologe:")
  349.                 say("Du hast mir die 15 Sammlungen gebracht.")
  350.                 say("Nun, ich habe noch eine Bitte.")
  351.                 say("Ich benötige den Tempelseelenstein,")
  352.                 say("den du von Stolzen dunklen Fanatikern,")
  353.                 say("Kämpfern, sowie Obersten erbeuten kannst.")
  354.                 say("Ich denke, dafür bist du stark genug.")
  355.                 say("")        
  356.             end
  357.         end
  358.     end
  359.     state templekey_reward begin
  360.         when letter begin
  361.             send_letter("Sprich mit Baek-Go")
  362.             local v = find_npc_by_vnum(20018)
  363.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  364.             end
  365.         end
  366.         when button or info begin
  367.             say_title("Sprich mit Baek-Go")
  368.             say("Um die Belohnung des Biologen zu erhalten,")
  369.             say("suche mit den Informationen der")
  370.             say("Fluchsammlungen und des Seelensteins")
  371.             say("Baek-Go auf. Er befindet sich in der Stadt.")
  372.             say("")
  373.         end
  374.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  375.             target.delete("__TARGET__")
  376.             say_title("Baek-Go:")
  377.             say("Ich sehe ...")
  378.             say("Der Biologe hat dich zu mir geschickt.")
  379.             say("Hier ist deine Belohnung:")
  380.             say("")
  381.             say_reward("Du erhälst:")
  382.             say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
  383.             say("")
  384.             affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
  385.             set_state(collect_quest_lv50)
  386.         end
  387.     end
  388.  
  389.     ----------------------------------
  390.     -- LvL 50 / Dämonenandenken
  391.     ----------------------------------
  392.     state collect_quest_lv50 begin
  393.         when login or levelup with pc.level>49 begin
  394.             set_state(talk_to_disciple_lv50)
  395.         end    
  396.     end
  397.     state talk_to_disciple_lv50 begin
  398.         when letter begin
  399.             local v = find_npc_by_vnum(20084)
  400.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  401.             end
  402.             send_letter("Forschung des Biologen Nr. 3")
  403.         end
  404.         when button or info begin
  405.             say_title("Forschung des Biologen Nr. 3")
  406.             say("")
  407.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  408.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  409.             say("nach speziellen Gegenständen.")
  410.             say("Sprich mit ihm,")
  411.             say("um eine genauere Beschreibung zu erhalten.")
  412.             say("")
  413.             say_reward("Sprich mit dem Biologen")
  414.             say("")
  415.         end
  416.         when __TARGET__.target.click or 20084.chat."Dämonenandenken" begin
  417.             target.delete("__TARGET__")
  418.             say("Biologe:")
  419.             say("Gut, dass du gekommen bist...")
  420.             say("Die Untersuchung der Fluchsammlungen")
  421.             say("habe ich abgeschlossen.")
  422.             say("Nun habe ich neue Objekte gefunden,")
  423.             say("die ich gerne untersuchen würde.")
  424.             wait()
  425.             say("Biologe:")
  426.             say("Ich würde sie ja selber sammeln,")
  427.             say("aber ich habe zuviel zu tun...")
  428.             say("Es wäre sehr nett, wenn du dies")
  429.             say("für mich erledigen könntest.")
  430.             wait()
  431.             say("Biologe:")
  432.             say("Ich möchte die Dämonenandenken untersuchen.")
  433.             say("Davon benötige ich 15 Stück.")
  434.             say("Diese sind jedoch ziemlich zerbrechlich,")
  435.             say("es kann also sein, dass einige bei")
  436.             say("meinen Untersuchungen kaputt gehen.")
  437.             say("")                                                                                                                                                          
  438.             set_state(collect_deamonitem)
  439.             pc.setqf("duration",0)
  440.             pc.setqf("collect_count",0)
  441.         end
  442.     end
  443.     state collect_deamonitem begin
  444.         when letter begin
  445.             send_letter("Forschung des Biologen Nr. 3")
  446.         end
  447.         when button or info begin
  448.             say_title("Dämonenandenken")
  449.             say("")
  450.             say("Der Biologe gab euch den Auftrag,")
  451.             say("15 Dämonenandenken zu besorgen.")
  452.             say("Diese kannst du bei den Monstern im")
  453.             say("Dämonenturm erbeuten.")
  454.             say("")
  455.             say_item_vnum(30015)
  456.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  457.             say("")
  458.         end
  459.         when 20084.chat."Dämonenandenken" with pc.count_item(30015)>0 begin
  460.             if get_time()>pc.getqf("duration") then
  461.                 say("Einen Moment ...")
  462.                 say("Vielen Dank,")
  463.                 say("lasst mich schnell überprüfen")
  464.                 say("ob dieser Zahn in Ordnung ist ...")
  465.                 say("")
  466.                 pc.remove_item("30015", 1)
  467.                 pc.setqf("duration", get_time()+0)
  468.                 wait()
  469.                 local rand = number(0,99)
  470.                 if rand<50 then
  471.                     local count = pc.getqf("collect_count")+1
  472.                     if count<15 then
  473.                         pc.setqf("collect_count", count)
  474.                         say("Biologe:")
  475.                         say("Hervorragend,")
  476.                         say("dieses Dämonenandenken ist in Ordnung.")
  477.                         say("Bringt mir noch welche, damit ich meine")
  478.                         say("Forschungen abschließen kann.")
  479.                         say("")
  480.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  481.                         say("")
  482.                     else  
  483.                         say("Biologe:")
  484.                         say("Du hast mir die 15 Andenken gebracht.")
  485.                         say("Nun, ich habe noch eine Bitte.")
  486.                         say("Ich benötige Sagyis Seelenstein,")
  487.                         say("den du von den Monstern im Dämonenturm,")
  488.                         say("erbeuten kannst.")
  489.                         say("Ich denke, dafür bist du stark genug.")
  490.                         say("")
  491.                         pc.setqf("collect_count",0)
  492.                         pc.setqf("duration",0)  
  493.                         set_state(collect_sagyis)
  494.                     end
  495.                 else                                
  496.                     say("Biologe:")
  497.                     say("Es tut mir leid, das Andenken")
  498.                     say("ist bei den Untersuchungen zerbrochen.")
  499.                     say("Bitte hol mir ein Neues.")
  500.                 end
  501.             else
  502.                 say("Biologe:")
  503.                 say("Entschuldige, ich habe die letzten")
  504.                 say("Studien noch nicht beendet ...")
  505.                 say("Bitte bring mir das Andenken später.")
  506.             end
  507.         end
  508.     end
  509.     state collect_sagyis begin
  510.         when letter begin
  511.             send_letter("Sagyis Seelenstein")
  512.         end
  513.         when button or info begin
  514.             say_title("Sagyis Seelenstein")
  515.             say("")
  516.             say("Ihr habt alle 15 Dämonenandenken abgegeben.")
  517.             say("Nun müsst ihr Sagyis Seelenstein erbeuten.")
  518.             say("")
  519.             say_item_vnum(30222)
  520.             say("Ob dieser Stein tatsächlich Seelen")
  521.             say("von Sagyis Adligen enthält?")
  522.             say("")
  523.         end
  524.         when 1031.kill or 1032.kill or 1033.kill or 1034.kill  begin
  525.             if pc.count_item(30222)<1 then
  526.                 local rand = number(0,99)
  527.                 if rand<5 then pc.give_item2(30222, 1)
  528.                 end
  529.             end    
  530.         end
  531.         when 20084.chat."Sagyis Seelenstein" begin
  532.             target.delete("__TARGET__")
  533.             if pc.count_item(30222)>0 then
  534.                 say("Biologe:")
  535.                 say("Dank deiner Hilfe verstehe ich nun")
  536.                 say("die Legende um Sagyis Seelenstein.")
  537.                 say("Du hast hart gekämpft.")
  538.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  539.                 say("deine inneren Kräfte zu steigern.")
  540.                 say("")
  541.                 pc.remove_item(30222,1)
  542.                 set_state(sagyis_reward)
  543.             else
  544.                 say("Biologe:")
  545.                 say("Du hast mir die 15 Andenken gebracht.")
  546.                 say("Nun, ich habe noch eine Bitte.")
  547.                 say("Ich benötige Sagyis Seelenstein,")
  548.                 say("den du von den Monstern im Dämonenturm,")
  549.                 say("erbeuten kannst.")
  550.                 say("Ich denke, dafür bist du stark genug.")
  551.                 say("")    
  552.             end
  553.         end
  554.     end
  555.     state sagyis_reward begin
  556.         when letter begin
  557.             send_letter("Sprich mit Baek-Go")
  558.             local v = find_npc_by_vnum(20018)
  559.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  560.             end
  561.         end
  562.         when button or info begin
  563.             say_title("Sprich mit Baek-Go")
  564.             say("Um die Belohnung des Biologen zu erhalten,")
  565.             say("suche mit den Informationen der")
  566.             say("Dämonenandenken und des Seelensteins")
  567.             say("Baek-Go auf. Er befindet sich in der Stadt.")
  568.             say("")
  569.         end
  570.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  571.             target.delete("__TARGET__")
  572.             say_title("Baek-Go:")
  573.             say("Ich sehe ...")
  574.             say("Der Biologe hat dich zu mir geschickt.")
  575.             say("Hier ist deine Belohnung:")
  576.             say("")
  577.             say_reward("Du erhälst:")
  578.             say_reward("Verteidigung +60 (Dauerhaft)")
  579.             say("")
  580.             affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60)
  581.             set_state(collect_quest_lv60)
  582.         end
  583.     end
  584.  
  585.     ----------------------------------
  586.     -- LvL 60 / Eiskugeln
  587.     ----------------------------------
  588.     state collect_quest_lv60 begin
  589.         when login or levelup with pc.level>59 begin
  590.             set_state(talk_to_disciple_lv60)
  591.         end    
  592.     end
  593.     state talk_to_disciple_lv60 begin
  594.         when letter begin
  595.             local v = find_npc_by_vnum(20084)
  596.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  597.             end
  598.             send_letter("Forschung des Biologen Nr. 4")
  599.         end
  600.         when button or info begin
  601.             say_title("Forschung des Biologen Nr. 4")
  602.             say("")
  603.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  604.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  605.             say("nach speziellen Gegenständen.")
  606.             say("Sprich mit ihm,")
  607.             say("um eine genauere Beschreibung zu erhalten.")
  608.             say("")
  609.             say_reward("Sprich mit dem Biologen")
  610.             say("")
  611.         end
  612.         when __TARGET__.target.click or 20084.chat."Eiskugeln" begin
  613.             target.delete("__TARGET__")
  614.             say("Biologe:")
  615.             say("Gut, dass du gekommen bist...")
  616.             say("Die Untersuchung der Dämonenandenken")
  617.             say("habe ich abgeschlossen.")
  618.             say("Nun habe ich neue Objekte gefunden,")
  619.             say("die ich gerne untersuchen würde.")
  620.             wait()
  621.             say("Biologe:")
  622.             say("Ich würde sie ja selber sammeln,")
  623.             say("aber ich habe zuviel zu tun...")
  624.             say("Es wäre sehr nett, wenn du dies")
  625.             say("für mich erledigen könntest.")
  626.             wait()
  627.             say("Biologe:")
  628.             say("Ich möchte die Eiskugeln untersuchen.")
  629.             say("Davon benötige ich 15 Stück.")
  630.             say("Diese sind jedoch ziemlich zerbrechlich,")
  631.             say("es kann also sein, dass einige bei")
  632.             say("meinen Untersuchungen kaputt gehen.")
  633.             say("")                                                                                                                                                          
  634.             set_state(collect_scoops)
  635.             pc.setqf("duration",0)
  636.             pc.setqf("collect_count",0)
  637.         end
  638.     end
  639.     state collect_scoops begin
  640.         when letter begin
  641.             send_letter("Forschung des Biologen Nr. 4")
  642.         end
  643.         when button or info begin
  644.             say_title("Eiskugeln")
  645.             say("")
  646.             say("Der Biologe gab euch den Auftrag,")
  647.             say("15 Eiskugeln zu besorgen.")
  648.             say("Diese kannst du bei den Eisgolems auf")
  649.             say("dem Berg Sohan erbeuten.")
  650.             say("")
  651.             say_item_vnum(30050)
  652.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  653.             say("")
  654.         end
  655.         when 20084.chat."Dämonenandenken" with pc.count_item(30050)>0 begin
  656.             if get_time()>pc.getqf("duration") then
  657.                 say("Einen Moment ...")
  658.                 say("Vielen Dank,")
  659.                 say("lasst mich schnell überprüfen")
  660.                 say("ob dieser Zahn in Ordnung ist ...")
  661.                 say("")
  662.                 pc.remove_item("30050", 1)
  663.                 pc.setqf("duration", get_time()+0)
  664.                 wait()
  665.                 local rand = number(0,99)
  666.                 if rand<50 then
  667.                     local count = pc.getqf("collect_count")+1
  668.                     if count<15 then
  669.                         pc.setqf("collect_count", count)
  670.                         say("Biologe:")
  671.                         say("Hervorragend,")
  672.                         say("diese Eiskugel ist in Ordnung.")
  673.                         say("Bringt mir noch welche, damit ich meine")
  674.                         say("Forschungen abschließen kann.")
  675.                         say("")
  676.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  677.                         say("")
  678.                     else  
  679.                         say("Biologe:")
  680.                         say("Du hast mir die 15 Eiskugeln gebracht.")
  681.                         say("Nun, ich habe noch eine Bitte.")
  682.                         say("Ich benötige Aurtumryus Seelenstein,")
  683.                         say("den du von den Eismonstern auf dem Berg Sohan,")
  684.                         say("erbeuten kannst.")
  685.                         say("Ich denke, dafür bist du stark genug.")
  686.                         say("")
  687.                         pc.setqf("collect_count",0)
  688.                         pc.setqf("duration",0)  
  689.                         set_state(collect_aurtumryus)
  690.                     end
  691.                 else                                
  692.                     say("Biologe:")
  693.                     say("Es tut mir leid, die Eiskugel")
  694.                     say("ist bei den Untersuchungen zerbrochen.")
  695.                     say("Bitte hol mir eine Neue.")
  696.                 end
  697.             else
  698.                 say("Biologe:")
  699.                 say("Entschuldige, ich habe die letzten")
  700.                 say("Studien noch nicht beendet ...")
  701.                 say("Bitte bring mir die Eiskugel später.")
  702.             end
  703.         end
  704.     end
  705.     state collect_aurtumryus begin
  706.         when letter begin
  707.             send_letter("Aurtumryus Seelenstein")
  708.         end
  709.         when button or info begin
  710.             say_title("Aurtumryus Seelenstein")
  711.             say("")
  712.             say("Ihr habt alle 15 Eiskugeln abgegeben.")
  713.             say("Nun müsst ihr Aurtumryus Seelenstein erbeuten.")
  714.             say("")
  715.             say_item_vnum(30223)
  716.             say("Ob dieser Stein tatsächlich Seelen")
  717.             say("von Aurtumryus Adligen enthält?")
  718.             say("")
  719.         end
  720.         when 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill begin
  721.             if pc.count_item(30223)<1 then
  722.                 local rand = number(0,99)
  723.                 if rand<5 then pc.give_item2(30223, 1)
  724.                 end
  725.             end    
  726.         end
  727.         when 20084.chat."Aurtumryus Seelenstein" begin
  728.             if pc.count_item(30223)>0 then
  729.                 say("Biologe:")
  730.                 say("Dank deiner Hilfe verstehe ich nun")
  731.                 say("die Legende um Aurtumryus Seelenstein.")
  732.                 say("Du hast hart gekämpft.")
  733.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  734.                 say("deine inneren Kräfte zu steigern.")
  735.                 say("")
  736.                 pc.remove_item(30223,1)
  737.                 set_state(aurtumryus_reward)
  738.             else
  739.                 say("Biologe:")
  740.                 say("Du hast mir die 15 Eiskugeln gebracht.")
  741.                 say("Nun, ich habe noch eine Bitte.")
  742.                 say("Ich benötige Aurtumryus Seelenstein,")
  743.                 say("den du von den Eismonstern auf dem Berg Sohan,")
  744.                 say("erbeuten kannst.")
  745.                 say("Ich denke, dafür bist du stark genug.")
  746.                 say("")            
  747.             end
  748.         end
  749.     end
  750.     state aurtumryus_reward begin
  751.         when letter begin
  752.             send_letter("Sprich mit Baek-Go")
  753.             local v = find_npc_by_vnum(20018)
  754.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  755.             end
  756.         end
  757.         when button or info begin
  758.             say_title("Sprich mit Baek-Go")
  759.             say("Um die Belohnung des Biologen zu erhalten,")
  760.             say("suche mit den Informationen der")
  761.             say("Eiskugeln und des Seelensteins")
  762.             say("Baek-Go auf. Er befindet sich in der Stadt.")
  763.             say("")
  764.         end
  765.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  766.             target.delete("__TARGET__")
  767.             say_title("Baek-Go:")
  768.             say("Ich sehe ...")
  769.             say("Der Biologe hat dich zu mir geschickt.")
  770.             say("Hier ist deine Belohnung:")
  771.             say("")
  772.             say_reward("Du erhälst:")
  773.             say_reward("Angriffswert +50 (Dauerhaft)")
  774.             say("")
  775.             affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60)
  776.             set_state(collect_quest_lv70)
  777.         end
  778.     end
  779.  
  780.     ----------------------------------
  781.     -- LvL 70 / Zelkovas Holzäste
  782.     ----------------------------------
  783.     state collect_quest_lv70 begin
  784.         when login or levelup with pc.level>69 begin
  785.             set_state(talk_to_disciple_lv70)
  786.         end    
  787.     end
  788.     state talk_to_disciple_lv70 begin
  789.         when letter begin
  790.             local v = find_npc_by_vnum(20084)
  791.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  792.             end
  793.             send_letter("Forschung des Biologen Nr. 5")
  794.         end
  795.         when button or info begin
  796.             say_title("Forschung des Biologen Nr. 5")
  797.             say("")
  798.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  799.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  800.             say("nach speziellen Gegenständen.")
  801.             say("Sprich mit ihm,")
  802.             say("um eine genauere Beschreibung zu erhalten.")
  803.             say("")
  804.             say_reward("Sprich mit dem Biologen")
  805.             say("")
  806.         end
  807.         when __TARGET__.target.click or 20084.chat."Zelkovas Holzäste" begin
  808.             target.delete("__TARGET__")
  809.             say("Biologe:")
  810.             say("Gut, dass du gekommen bist...")
  811.             say("Die Untersuchung der Eiskugeln")
  812.             say("habe ich abgeschlossen.")
  813.             say("Nun habe ich neue Objekte gefunden,")
  814.             say("die ich gerne untersuchen würde.")
  815.             wait()
  816.             say("Biologe:")
  817.             say("Ich würde sie ja selber sammeln,")
  818.             say("aber ich habe zuviel zu tun...")
  819.             say("Es wäre sehr nett, wenn du dies")
  820.             say("für mich erledigen könntest.")
  821.             wait()
  822.             say("Biologe:")
  823.             say("Ich möchte Zelkovas Holzäste untersuchen.")
  824.             say("Davon benötige ich 25 Stück.")
  825.             say("Diese welken jedoch ziemlich schnell,")
  826.             say("es kann also sein, dass einige für")
  827.             say("meine Untersuchungen unbrauchbar sind.")
  828.             say("")                                                                                                                                                          
  829.             set_state(collect_branches)
  830.             pc.setqf("duration",0)
  831.             pc.setqf("collect_count",0)
  832.         end
  833.     end
  834.     state collect_branches begin
  835.         when letter begin
  836.             send_letter("Forschung des Biologen Nr. 5")
  837.         end
  838.         when button or info begin
  839.             say_title("Zelkovas Holzäste")
  840.             say("")
  841.             say("Der Biologe gab euch den Auftrag,")
  842.             say("25 von Zelkovas Holzästen zu besorgen.")
  843.             say("Diese kannst du bei den Monstern")
  844.             say("im Geisterwald erbeuten.")
  845.             say("")
  846.             say_item_vnum(30165)
  847.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  848.             say("")
  849.         end
  850.         when 20084.chat."Zelkovas Holzäste" with pc.count_item(30165)>0 begin
  851.             if get_time()>pc.getqf("duration") then
  852.                 say("Einen Moment ...")
  853.                 say("Vielen Dank,")
  854.                 say("lasst mich schnell überprüfen")
  855.                 say("ob dieser Holzast in Ordnung ist ...")
  856.                 say("")
  857.                 pc.remove_item("30165", 1)
  858.                 pc.setqf("duration", get_time()+0)
  859.                 wait()
  860.                 local rand = number(0,99)
  861.                 if rand<50 then
  862.                     local count = pc.getqf("collect_count")+1
  863.                     if count<25 then
  864.                         pc.setqf("collect_count", count)
  865.                         say("Biologe:")
  866.                         say("Hervorragend,")
  867.                         say("dieser Holzast ist in Ordnung.")
  868.                         say("Bringt mir noch welche, damit ich meine")
  869.                         say("Forschungen abschließen kann.")
  870.                         say("")
  871.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  872.                         say("")
  873.                     else  
  874.                         say("Biologe:")
  875.                         say("Du hast mir die 25 Holzäste gebracht.")
  876.                         say("Nun, ich habe noch eine Bitte.")
  877.                         say("Ich benötige Gyimoks Seelenstein,")
  878.                         say("den du ebenfalls von den Monstern")
  879.                         say("im Geisterwald erbeuten kannst.")
  880.                         say("Ich denke, dafür bist du stark genug.")
  881.                         say("")
  882.                         pc.setqf("collect_count",0)
  883.                         pc.setqf("duration",0)  
  884.                         set_state(collect_gyimoks)
  885.                     end
  886.                 else                                
  887.                     say("Biologe:")
  888.                     say("Es tut mir leid, der Holzast")
  889.                     say("ist während des Transports verwelkt.")
  890.                     say("Bitte hol mir einen Neuen.")
  891.                 end
  892.             else
  893.                 say("Biologe:")
  894.                 say("Entschuldige, ich habe die letzten")
  895.                 say("Studien noch nicht beendet ...")
  896.                 say("Bitte bring mir den Holzast später.")
  897.             end
  898.         end
  899.     end
  900.     state collect_gyimoks begin
  901.         when letter begin
  902.             send_letter("Gyimoks Seelenstein")
  903.         end
  904.         when button or info begin
  905.             say_title("Gyimoks Seelenstein")
  906.             say("")
  907.             say("Ihr habt alle 15 Eiskugeln abgegeben.")
  908.             say("Nun müsst ihr Gyimoks Seelenstein erbeuten.")
  909.             say("")
  910.             say_item_vnum(30224)
  911.             say("Ob dieser Stein tatsächlich Seelen")
  912.             say("von Gyimoks Adligen enthält?")
  913.             say("")
  914.         end
  915.         when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or  
  916.              2312.kill or 2313.kill or 2314.kill or 2315.kill or 2306.kill or 2307.kill begin
  917.             if pc.count_item(30224)<1 then
  918.                 local rand = number(0,99)
  919.                 if rand<5 then pc.give_item2(30224, 1)
  920.                 end
  921.             end    
  922.         end
  923.         when 20084.chat."Gyimoks Seelenstein" begin
  924.             target.delete("__TARGET__")
  925.             if pc.count_item(30224)>0 then
  926.                 say("Biologe:")
  927.                 say("Dank deiner Hilfe verstehe ich nun")
  928.                 say("die Legende um Gyimoks Seelenstein.")
  929.                 say("Du hast hart gekämpft.")
  930.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  931.                 say("deine inneren Kräfte zu steigern.")
  932.                 say("")
  933.                 pc.remove_item(30224,1)
  934.                 set_state(gyimoks_reward)
  935.             else
  936.                 say("Biologe:")
  937.                 say("Du hast mir die 25 Holzäste gebracht.")
  938.                 say("Nun...ich habe noch eine Bitte.")
  939.                 say("Ich benötige Gyimoks Seelenstein,")
  940.                 say("den du ebenfalls von den Monstern")
  941.                 say("im Geisterwald erbeuten kannst.")
  942.                 say("Ich denke, dafür bist du stark genug.")
  943.                 say("")            
  944.             end
  945.         end
  946.     end
  947.     state gyimoks_reward begin
  948.         when letter begin
  949.             send_letter("Sprich mit Baek-Go")
  950.             local v = find_npc_by_vnum(20018)
  951.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  952.             end
  953.         end
  954.         when button or info begin
  955.             say_title("Sprich mit Baek-Go")
  956.             say("Um die Belohnung des Biologen zu erhalten,")
  957.             say("suche mit den Informationen der")
  958.             say("Zelkova Holzäste und des Seelensteins")
  959.             say("Baek-Go auf. Er befindet sich in der Stadt.")
  960.             say("")
  961.         end
  962.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  963.             target.delete("__TARGET__")
  964.             say_title("Baek-Go:")
  965.             say("Ich sehe ...")
  966.             say("Der Biologe hat dich zu mir geschickt.")
  967.             say("Hier ist deine Belohnung:")
  968.             say("")
  969.             say_reward("Du erhälst:")
  970.             say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)")
  971.             say_reward("Schadensreduzierung +10% (Dauerhaft)")
  972.             say("")
  973.             affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60)
  974.             affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60*24*365*60)
  975.             set_state(collect_quest_lv80)
  976.         end
  977.     end
  978.  
  979.     ----------------------------------
  980.     -- LvL 80 / Tugyis Tafeln
  981.     ----------------------------------
  982.     state collect_quest_lv80 begin
  983.         when login or levelup with pc.level>79 begin
  984.             set_state(talk_to_disciple_lv80)
  985.         end    
  986.     end
  987.     state talk_to_disciple_lv80 begin
  988.         when letter begin
  989.             local v = find_npc_by_vnum(20084)
  990.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  991.             end
  992.             send_letter("Forschung des Biologen Nr. 6")
  993.         end
  994.         when button or info begin
  995.             say_title("Forschung des Biologen Nr. 6")
  996.             say("")
  997.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  998.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  999.             say("nach speziellen Gegenständen.")
  1000.             say("Sprich mit ihm,")
  1001.             say("um eine genauere Beschreibung zu erhalten.")
  1002.             say("")
  1003.             say_reward("Sprich mit dem Biologen")
  1004.             say("")
  1005.         end
  1006.         when __TARGET__.target.click or 20084.chat."Tugyis Tafeln" begin
  1007.             target.delete("__TARGET__")
  1008.             say("Biologe:")
  1009.             say("Gut, dass du gekommen bist...")
  1010.             say("Die Untersuchung der Zelkova Holzäste")
  1011.             say("habe ich abgeschlossen.")
  1012.             say("Nun habe ich neue Objekte gefunden,")
  1013.             say("die ich gerne untersuchen würde.")
  1014.             wait()
  1015.             say("Biologe:")
  1016.             say("Ich würde sie ja selber sammeln,")
  1017.             say("aber ich habe zuviel zu tun...")
  1018.             say("Es wäre sehr nett, wenn du dies")
  1019.             say("für mich erledigen könntest.")
  1020.             wait()
  1021.             say("Biologe:")
  1022.             say("Ich möchte Tugyis Tafeln untersuchen.")
  1023.             say("Davon benötige ich 30 Stück.")
  1024.             say("Diese sind jedoch ziemlich zerbrechlich,")
  1025.             say("es kann also sein, dass einige bei")
  1026.             say("meinen Untersuchungen kaputt gehen.")
  1027.             say("")                                                                                                                                                          
  1028.             set_state(collect_plates)
  1029.             pc.setqf("duration",0)
  1030.             pc.setqf("collect_count",0)
  1031.         end
  1032.     end
  1033.     state collect_plates begin
  1034.         when letter begin
  1035.             send_letter("Forschung des Biologen Nr. 6")
  1036.         end
  1037.         when button or info begin
  1038.             say_title("Tugyis Tafeln")
  1039.             say("")
  1040.             say("Der Biologe gab euch den Auftrag,")
  1041.             say("30 von Tugyis Tafeln zu besorgen.")
  1042.             say("Diese kannst du bei den Monstern")
  1043.             say("im Land der Riesen erbeuten.")
  1044.             say("")
  1045.             say_item_vnum(30166)
  1046.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  1047.             say("")
  1048.         end
  1049.         when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin
  1050.             local rand = number(0,99)
  1051.             if rand<5 then pc.give_item2(30166, 1)
  1052.             end
  1053.         end
  1054.         when 20084.chat."Tugyis Tafeln" with pc.count_item(30165)>0 begin
  1055.             if get_time()>pc.getqf("duration") then
  1056.                 say("Einen Moment ...")
  1057.                 say("Vielen Dank,")
  1058.                 say("lasst mich schnell überprüfen")
  1059.                 say("ob diese Tafel in Ordnung ist ...")
  1060.                 say("")
  1061.                 pc.remove_item("30166", 1)
  1062.                 pc.setqf("duration", get_time()+0)
  1063.                 wait()
  1064.                 local rand = number(0,99)
  1065.                 if rand<50 then
  1066.                     local count = pc.getqf("collect_count")+1
  1067.                     if count<30 then
  1068.                         pc.setqf("collect_count", count)
  1069.                         say("Biologe:")
  1070.                         say("Hervorragend,")
  1071.                         say("diese Tafel ist in Ordnung.")
  1072.                         say("Bringt mir noch welche, damit ich meine")
  1073.                         say("Forschungen abschließen kann.")
  1074.                         say("")
  1075.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  1076.                         say("")
  1077.                     else  
  1078.                         say("Biologe:")
  1079.                         say("Du hast mir die 30 Tafeln gebracht.")
  1080.                         say("Nun, ich habe noch eine Bitte.")
  1081.                         say("Ich benötige Tugyis Seelenstein,")
  1082.                         say("den du ebenfalls von den Monstern")
  1083.                         say("im Land der Riesen erbeuten kannst.")
  1084.                         say("Ich denke, dafür bist du stark genug.")
  1085.                         say("")
  1086.                         pc.setqf("collect_count",0)
  1087.                         pc.setqf("duration",0)  
  1088.                         set_state(collect_tugyis)
  1089.                     end
  1090.                 else                                
  1091.                     say("Biologe:")
  1092.                     say("Es tut mir leid, die Tafel")
  1093.                     say("ist während der Untersuchung zerbrochen.")
  1094.                     say("Bitte hol mir eine Neue.")
  1095.                 end
  1096.             else
  1097.                 say("Biologe:")
  1098.                 say("Entschuldige, ich habe die letzten")
  1099.                 say("Studien noch nicht beendet ...")
  1100.                 say("Bitte bring mir die Tafel später.")
  1101.             end
  1102.         end
  1103.     end
  1104.     state collect_tugyis begin
  1105.         when letter begin
  1106.             send_letter("Tugyis Seelenstein")
  1107.         end
  1108.         when button or info begin
  1109.             say_title("Tugyis Seelenstein")
  1110.             say("")
  1111.             say("Ihr habt alle 30 Tafeln abgegeben.")
  1112.             say("Nun müsst ihr Tugyis Seelenstein erbeuten.")
  1113.             say("")
  1114.             say_item_vnum(30225)
  1115.             say("Ob dieser Stein tatsächlich Seelen")
  1116.             say("von Tugyis Adligen enthält?")
  1117.             say("")
  1118.         end
  1119.         when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin
  1120.             if pc.count_item(30224)<1 then
  1121.                 local rand = number(0,99)
  1122.                 if rand<5 then pc.give_item2(30225, 1)
  1123.                 end
  1124.             end    
  1125.         end
  1126.         when 20084.chat."Tugyis Seelenstein" begin
  1127.             if pc.count_item(30225)>0 then
  1128.                 say("Biologe:")
  1129.                 say("Dank deiner Hilfe verstehe ich nun")
  1130.                 say("die Legende um Tugyis Seelenstein.")
  1131.                 say("Du hast hart gekämpft.")
  1132.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  1133.                 say("deine inneren Kräfte zu steigern.")
  1134.                 say("")
  1135.                 pc.remove_item(30225,1)
  1136.                 set_state(tugyis_reward)
  1137.             else
  1138.                 say("Biologe:")
  1139.                 say("Du hast mir die 30 Tafeln gebracht.")
  1140.                 say("Nun, ich habe noch eine Bitte.")
  1141.                 say("Ich benötige Tugyis Seelenstein,")
  1142.                 say("den du ebenfalls von den Monstern")
  1143.                 say("im Land der Riesen erbeuten kannst.")
  1144.                 say("Ich denke, dafür bist du stark genug.")
  1145.                 say("")            
  1146.             end
  1147.         end
  1148.     end
  1149.     state tugyis_reward begin
  1150.         when letter begin
  1151.             send_letter("Sprich mit Baek-Go")
  1152.             local v = find_npc_by_vnum(20018)
  1153.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  1154.             end
  1155.         end
  1156.         when button or info begin
  1157.             say_title("Sprich mit Baek-Go")
  1158.             say("Um die Belohnung des Biologen zu erhalten,")
  1159.             say("suche mit den Informationen der")
  1160.             say("Tugyis Tafeln und des Seelensteins")
  1161.             say("Baek-Go auf. Er befindet sich in der Stadt.")
  1162.             say("")
  1163.         end
  1164.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  1165.             target.delete("__TARGET__")
  1166.             say_title("Baek-Go:")
  1167.             say("Ich sehe ...")
  1168.             say("Der Biologe hat dich zu mir geschickt.")
  1169.             say("Hier ist deine Belohnung:")
  1170.             say("")
  1171.             say_reward("Du erhälst:")
  1172.             say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
  1173.             say_reward("Schadenserhöhung +10% (Dauerhaft)")
  1174.             say("")
  1175.             affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
  1176.             affect.add_collect_point(apply.POINT_ATT_BONUS,10,60*60*24*365*60)
  1177.             set_state(collect_quest_lv90)
  1178.         end
  1179.     end
  1180.  
  1181.     ----------------------------------
  1182.     -- LvL 90 / Notiz der Anführer
  1183.     ----------------------------------
  1184.     state collect_quest_lv90 begin
  1185.         when login or levelup with pc.level>79 begin
  1186.             set_state(talk_to_disciple_lv90)
  1187.         end    
  1188.     end
  1189.     state talk_to_disciple_lv90 begin
  1190.         when letter begin
  1191.             local v = find_npc_by_vnum(20084)
  1192.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  1193.             end
  1194.             send_letter("Forschung des Biologen Nr. 7")
  1195.         end
  1196.         when button or info begin
  1197.             say_title("Forschung des Biologen Nr. 7")
  1198.             say("")
  1199.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  1200.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  1201.             say("nach speziellen Gegenständen.")
  1202.             say("Sprich mit ihm,")
  1203.             say("um eine genauere Beschreibung zu erhalten.")
  1204.             say("")
  1205.             say_reward("Sprich mit dem Biologen")
  1206.             say("")
  1207.         end
  1208.         when __TARGET__.target.click or 20084.chat."Notiz der Anführer" begin
  1209.             target.delete("__TARGET__")
  1210.             say("Biologe:")
  1211.             say("Gut, dass du gekommen bist...")
  1212.             say("Die Untersuchung der Tugyis Tafeln")
  1213.             say("habe ich abgeschlossen.")
  1214.             say("Nun habe ich neue Objekte gefunden,")
  1215.             say("die ich gerne untersuchen würde.")
  1216.             wait()
  1217.             say("Biologe:")
  1218.             say("Ich würde sie ja selber sammeln,")
  1219.             say("aber ich habe zuviel zu tun...")
  1220.             say("Es wäre sehr nett, wenn du dies")
  1221.             say("für mich erledigen könntest.")
  1222.             wait()
  1223.             say("Biologe:")
  1224.             say("Ich möchte Notizen der Anführer untersuchen.")
  1225.             say("Davon benötige ich 50 Stück.")
  1226.             say("Es kann jedoch sein, dass sich einige")
  1227.             say("Notizen als alt und unlesbar herausstellen.")
  1228.             say("")                                                                                                                                                          
  1229.             set_state(collect_notices)
  1230.             pc.setqf("duration",0)
  1231.             pc.setqf("collect_count",0)
  1232.         end
  1233.     end
  1234.     state collect_notices begin
  1235.         when letter begin
  1236.             send_letter("Forschung des Biologen Nr. 7")
  1237.         end
  1238.         when button or info begin
  1239.             say_title("Notiz der Anführer")
  1240.             say("")
  1241.             say("Der Biologe gab euch den Auftrag,")
  1242.             say("50 Notizen der Anführer zu besorgen.")
  1243.             say("Diese kannst du von den Bossen")
  1244.             say("wie z.B. Oberork, Königsspinne,")
  1245.             say("Neunschwanz, etc. erbeuten.")
  1246.             say("")
  1247.             say_item_vnum(30168)
  1248.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  1249.             say("")
  1250.         end
  1251.         when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
  1252.              1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or
  1253.              5161.kill or 5162.kill or 5163.kill begin
  1254.             local rand = number(0,99)
  1255.             if rand<5 then pc.give_item2(30168, 1)
  1256.             end
  1257.         end
  1258.         when 20084.chat."Notiz der Anführer" with pc.count_item(30168)>0 begin
  1259.             if get_time()>pc.getqf("duration") then
  1260.                 say("Einen Moment ...")
  1261.                 say("Vielen Dank,")
  1262.                 say("lasst mich schnell überprüfen")
  1263.                 say("ob diese Notiz lesbar ist ...")
  1264.                 say("")
  1265.                 pc.remove_item("30168", 1)
  1266.                 pc.setqf("duration", get_time()+0)
  1267.                 wait()
  1268.                 local rand = number(0,99)
  1269.                 if rand<50 then
  1270.                     local count = pc.getqf("collect_count")+1
  1271.                     if count<50 then
  1272.                         pc.setqf("collect_count", count)
  1273.                         say("Biologe:")
  1274.                         say("Hervorragend,")
  1275.                         say("diese Notiz ist in Ordnung.")
  1276.                         say("Bringt mir noch welche, damit ich meine")
  1277.                         say("Forschungen abschließen kann.")
  1278.                         say("")
  1279.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  1280.                         say("")
  1281.                     else  
  1282.                         say("Biologe:")
  1283.                         say("Du hast mir die 50 Notizen gebracht.")
  1284.                         say("Nun, ich habe noch eine Bitte.")
  1285.                         say("Ich benötige den Seelenstein der Anführer,")
  1286.                         say("den du ebenfalls von den Bossen")
  1287.                         say("erbeuten kannst.")
  1288.                         say("Ich denke, dafür bist du stark genug.")
  1289.                         say("")
  1290.                         pc.setqf("collect_count",0)
  1291.                         pc.setqf("duration",0)  
  1292.                         set_state(collect_bossKey)
  1293.                     end
  1294.                 else                                
  1295.                     say("Biologe:")
  1296.                     say("Es tut mir leid, die Notiz")
  1297.                     say("hat sich als unlesbar herausgestellt.")
  1298.                     say("Bitte hol mir eine Neue.")
  1299.                 end
  1300.             else
  1301.                 say("Biologe:")
  1302.                 say("Entschuldige, ich habe die letzten")
  1303.                 say("Studien noch nicht beendet ...")
  1304.                 say("Bitte bring mir die Notiz später.")
  1305.             end
  1306.         end
  1307.     end
  1308.     state collect_bossKey begin
  1309.         when letter begin
  1310.             send_letter("Seelenstein der Anführer")
  1311.         end
  1312.         when button or info begin
  1313.             say_title("Seelenstein der Anführer")
  1314.             say("")
  1315.             say("Ihr habt alle 50 Notizen abgegeben.")
  1316.             say("Nun müsst ihr den Seelenstein der Anführer")
  1317.             say("erbeuten.")
  1318.             say("")
  1319.             say_item_vnum(30227)
  1320.             say("Ob dieser Stein tatsächlich Seelen")
  1321.             say("der Anführer enthält?")
  1322.             say("")
  1323.         end
  1324.         when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
  1325.              1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or
  1326.              5161.kill or 5162.kill or 5163.kill begin
  1327.             if pc.count_item(30227)<1 then
  1328.                 local rand = number(0,99)
  1329.                 if rand<5 then pc.give_item2(30227, 1)
  1330.                 end
  1331.             end    
  1332.         end
  1333.         when 20084.chat."Seelenstein der Anführer" begin
  1334.             if pc.count_item(30227)>0 then
  1335.                 say("Biologe:")
  1336.                 say("Dank deiner Hilfe verstehe ich nun")
  1337.                 say("die Legende um den Seelenstein der Anführer.")
  1338.                 say("Du hast hart gekämpft.")
  1339.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  1340.                 say("deine inneren Kräfte zu steigern.")
  1341.                 say("")
  1342.                 pc.remove_item(30227,1)
  1343.                 set_state(bossKey_reward)
  1344.             else
  1345.                 say("Biologe:")
  1346.                 say("Du hast mir die 50 Notizen gebracht.")
  1347.                 say("Nun, ich habe noch eine Bitte.")
  1348.                 say("Ich benötige den Seelenstein der Anführer,")
  1349.                 say("den du ebenfalls von den Bossen")
  1350.                 say("erbeuten kannst.")
  1351.                 say("Ich denke, dafür bist du stark genug.")
  1352.                 say("")        
  1353.             end
  1354.         end
  1355.     end
  1356.     state bossKey_reward begin
  1357.         when letter begin
  1358.             send_letter("Sprich mit Baek-Go")
  1359.             local v = find_npc_by_vnum(20018)
  1360.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  1361.             end
  1362.         end
  1363.         when button or info begin
  1364.             say_title("Sprich mit Baek-Go")
  1365.             say("Um die Belohnung des Biologen zu erhalten,")
  1366.             say("suche mit den Informationen der")
  1367.             say("Notizen und des Seelensteins")
  1368.             say("Baek-Go auf. Er befindet sich in der Stadt.")
  1369.             say("")
  1370.         end
  1371.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  1372.             target.delete("__TARGET__")
  1373.             say_title("Baek-Go:")
  1374.             say("Ich sehe ...")
  1375.             say("Der Biologe hat dich zu mir geschickt.")
  1376.             say("Hier ist deine Belohnung:")
  1377.             say("")
  1378.             say_reward("Du erhälst:")
  1379.             say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)")
  1380.             say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
  1381.             say_reward("Schadensreduzierung +5% (Dauerhaft)")
  1382.             say_reward("Angriffswert +50 (Dauerhaft)")
  1383.             say("")
  1384.             affect.add_collect(apply.MOV_SPEED, 5, 60*60*24*365*60)
  1385.             affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60)
  1386.             affect.add_collect(apply.ATT_GRADE_BONUS,25,60*60*24*365*60)
  1387.             affect.add_collect(apply.DEF_GRADE_BONUS,5,60*60*24*365*60)
  1388.             set_state(collect_quest_lv100)
  1389.         end
  1390.     end
  1391.  
  1392.     ----------------------------------
  1393.     -- LvL 100 / Tofusteak
  1394.     ----------------------------------
  1395.     state collect_quest_lv100 begin
  1396.         when login or levelup with pc.level>99 begin
  1397.             set_state(talk_to_disciple_lv100)
  1398.         end    
  1399.     end
  1400.     state talk_to_disciple_lv100 begin
  1401.         when letter begin
  1402.             local v = find_npc_by_vnum(20084)
  1403.             if v != 0 then target.vid("__TARGET__", v, "Biologe")
  1404.             end
  1405.             send_letter("Auftrag des Biologen")
  1406.         end
  1407.         when button or info begin
  1408.             say_title("Auftrag des Biologen")
  1409.             say("")
  1410.             say("Der Biologe benötigt ein weiteres Mal Hilfe.")
  1411.             say("Er meinte, er bräuchte Hilfe auf der Suche")
  1412.             say("nach speziellen Gegenständen.")
  1413.             say("Sprich mit ihm,")
  1414.             say("um eine genauere Beschreibung zu erhalten.")
  1415.             say("")
  1416.             say_reward("Sprich mit dem Biologen")
  1417.             say("")
  1418.         end
  1419.         when __TARGET__.target.click or 20084.chat."Tofusteak" begin
  1420.             target.delete("__TARGET__")
  1421.             say("Biologe:")
  1422.             say("Gut, dass du gekommen bist...")
  1423.             say("Ich habe eine Überraschungsparty für")
  1424.             say("die Gemischwarenhändlerin vor,")
  1425.             say("da Sie demnächst 30 Jahre alt wird.")
  1426.             say("")
  1427.             wait()
  1428.             say("Biologe:")
  1429.             say("Für die Gäste fehlen mir noch 35 Tofusteaks.")
  1430.             say("Tofusteaks bekommt man von Oger Berserker")
  1431.             say("im Land der Riesen.")
  1432.             say("")
  1433.             wait()
  1434.             say("Biologe:")
  1435.             say("Bedenke jedoch, dass Tofusteaks")
  1436.             say("nicht lange haltbar sind.")
  1437.             say("Es kann also sein, dass sich einige")
  1438.             say("bei meinen Untersuchungen als")
  1439.             say("unbrauchbar herausstellen.")
  1440.             say("Ich brauche unbedingt 35 Stück,")
  1441.             say("da auch 35 Gäste erscheinen werden.")
  1442.             say("")
  1443.             set_state(collect_tofu)
  1444.             pc.setqf("duration",0)
  1445.             pc.setqf("collect_count",0)
  1446.         end
  1447.     end
  1448.     state collect_tofu begin
  1449.         when letter begin
  1450.             send_letter("Auftrag des Biologen")
  1451.         end
  1452.         when button or info begin
  1453.             say_title("Tofusteak")
  1454.             say("")
  1455.             say("Der Biologe gab euch den Auftrag,")
  1456.             say("35 Tofusteaks zu besorgen.")
  1457.             say("Diese kannst du von Oger Berserkern")
  1458.             say("im Land der Riesen erbeuten.")
  1459.             say("")
  1460.             say_item_vnum(30068)
  1461.             say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!")
  1462.             say("")
  1463.         end
  1464.         when 1603.kill begin
  1465.             local rand = number(0,99)
  1466.             if rand<5 then pc.give_item2(30068, 1)
  1467.             end
  1468.         end
  1469.         when 20084.chat."Tofusteak" with pc.count_item(30068)>0 begin
  1470.             if get_time()>pc.getqf("duration") then
  1471.                 say("Einen Moment ...")
  1472.                 say("Vielen Dank,")
  1473.                 say("lasst mich schnell überprüfen")
  1474.                 say("ob das Steak verzehrbar ist ...")
  1475.                 say("")
  1476.                 pc.remove_item("30068", 1)
  1477.                 pc.setqf("duration", get_time()+0)
  1478.                 wait()
  1479.                 local rand = number(0,99)
  1480.                 if rand<50 then
  1481.                     local count = pc.getqf("collect_count")+1
  1482.                     if count<35 then
  1483.                         pc.setqf("collect_count", count)
  1484.                         say("Biologe:")
  1485.                         say("Hervorragend,")
  1486.                         say("dieses Steak ist in Ordnung.")
  1487.                         say("Bringt mir noch welche, damit ich meine")
  1488.                         say("Party steigen lassen kann.")
  1489.                         say("")
  1490.                         say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!")
  1491.                         say("")
  1492.                     else  
  1493.                         say("Biologe:")
  1494.                         say("Du hast mir die 35 Tofusteaks gebracht.")
  1495.                         say("Nun, ich habe noch eine Bitte.")
  1496.                         say("Ich benötige ein Rezept,")
  1497.                         say("um aus den Steaks eine saftige Mahlzeit")
  1498.                         say("zu bereiten.")
  1499.                         say("Mir ist zu Ohren gekommen, dass Tausendkämpfer")
  1500.                         say("solche Mahlzeiten zubereiten.")
  1501.                         say("Ich denke, dafür bist du stark genug.")
  1502.                         say("")
  1503.                         pc.setqf("collect_count",0)
  1504.                         pc.setqf("duration",0)  
  1505.                         set_state(collect_recipe)
  1506.                     end
  1507.                 else                                
  1508.                     say("Biologe:")
  1509.                     say("Es tut mir leid, das Steak")
  1510.                     say("hat sich als unbrauchbar herausgestellt.")
  1511.                     say("Bitte hol mir ein Neues.")
  1512.                 end
  1513.             else
  1514.                 say("Biologe:")
  1515.                 say("Entschuldige, ich habe das letzte")
  1516.                 say("Steak noch nicht verarbeitet ...")
  1517.                 say("Bitte bring mir das Steak später.")
  1518.             end
  1519.         end
  1520.     end
  1521.     state collect_recipe begin
  1522.         when letter begin
  1523.             send_letter("Rezept")
  1524.         end
  1525.         when button or info begin
  1526.             say_title("Rezept")
  1527.             say("")
  1528.             say("Ihr habt alle 35 Tofusteaks abgegeben.")
  1529.             say("Nun müsst ihr das Rezept erbeuten.")
  1530.             say("")
  1531.             say_item_vnum(50903)
  1532.         end
  1533.         when 1403.kill begin
  1534.             if pc.count_item(50903)<1 then
  1535.                 local rand = number(0,99)
  1536.                 if rand<5 then pc.give_item2(50903, 1)
  1537.                 end
  1538.             end    
  1539.         end
  1540.         when 20084.chat."Rezept" begin
  1541.             if pc.count_item(50903)>0 then
  1542.                 say("Biologe:")
  1543.                 say("Vielen Dank, nun kann ich die Mahlzeiten")
  1544.                 say("endlich zubereiten.")
  1545.                 say("Dank dir wird die Überraschungsparty steigen.")
  1546.                 say("Du hast hart gekämpft.")
  1547.                 say("Sprich mit Baek-Go, er wird dir helfen,")
  1548.                 say("deine inneren Kräfte zu steigern.")
  1549.                 say("")
  1550.                 pc.remove_item(50903,1)
  1551.                 set_state(recipe_reward)
  1552.             else
  1553.                 say("Biologe:")
  1554.                 say("Du hast mir die 35 Tofusteaks gebracht.")
  1555.                 say("Nun, ich habe noch eine Bitte.")
  1556.                 say("Ich benötige ein Rezept,")
  1557.                 say("um aus den Steaks eine saftige Mahlzeit")
  1558.                 say("zu bereiten.")
  1559.                 say("Mir ist zu Ohren gekommen, dass Tausendkämpfer")
  1560.                 say("solche Mahlzeiten zubereiten.")
  1561.                 say("Ich denke, dafür bist du stark genug.")
  1562.                 say("")
  1563.             end
  1564.         end
  1565.     end
  1566.     state recipe_reward begin
  1567.         when letter begin
  1568.             send_letter("Sprich mit Baek-Go")
  1569.             local v = find_npc_by_vnum(20018)
  1570.             if v != 0 then target.vid("__TARGET__", v, "Doktor")
  1571.             end
  1572.         end
  1573.         when button or info begin
  1574.             say_title("Sprich mit Baek-Go")
  1575.             say("Um die Belohnung des Biologen zu erhalten,")
  1576.             say("suche mit den Informationen der")
  1577.             say("Überraschungsparty Baek-Go auf.")
  1578.             say("Er befindet sich in der Stadt.")
  1579.             say("")
  1580.         end
  1581.         when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin
  1582.             target.delete("__TARGET__")
  1583.             say_title("Baek-Go:")
  1584.             say("Ich sehe ...")
  1585.             say("Der Biologe hat dich zu mir geschickt.")
  1586.             say("Hier ist deine Belohnung:")
  1587.             say("")
  1588.             say_reward("Du erhälst:")
  1589.             say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)")
  1590.             say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)")
  1591.             say_reward("Schadensreduzierung +5% (Dauerhaft)")
  1592.             say_reward("MAX. HP +2000 (Dauerhaft)")
  1593.             say("")
  1594.             affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60)
  1595.             complete_quest()
  1596.         end
  1597.     end
  1598. end  
  1599.  
  1600. [/spoiler]
RAW Paste Data
Top