[SERVICE] Die Questkontrolle

Page 522 of 845 « First 22422472512520521 522 523524532572622 Last »
03/30/2013 22:02 Splinglol#7816
du musst vor die "pc.job == " immer ein if bzw. ein elseif machen (also beim ersten Mal "if pc.job == 0 then" und bei den anderen "elseif pc.job == 1 then"
ausserdem immer nach dem "then" die nächste zeile einen Tab weiter rechts^^
03/31/2013 01:57 Ep!cFail#7817
Quote:
Originally Posted by Stylo@Magic-mt3 View Post
Meine quest klappt nicht :/ kann einer mir sagen wieso?

Probier's mal so aus:


Nun mal zu meinen Problem...

Ich hatte vor eine "Aderruf Quest" zu machen.
Beinhaltet das die Adern gerufen wird das Item verschwindet, alles in allem ja nicht so schwer, der knackpunkt wo ich jetz gerade nicht weiter komme ist der das ich gerne hätte das die Adern nach 5 Minuten wieder verschwinden soll... Aber jegliche versuche das hinzubekommen sind bisher gescheitert und nun hoff ich mal das ihr mir helfen könnt...

PHP Code:
quest adern begin
    state start begin
        when 71057.use begin
            mob.spawn(20049, pc.get_local_x(), pc.get_local_y(), 5, 5)
            pc.remove_item(71057, 1)
        end
    end
end 
MfG
Ep!c
04/03/2013 00:58 Silver™#7818
Code:
quest warpring begin
    state start begin
        when 70007.use begin 
			local s = select("Gelbes Reich Map1","Gelbes Reich Map2","Rotes Reich Map1","Rotes Reich Map2","Blaues Reich Map1","Blaues Reich Map2","Daemonenturm","Schliessen")
			if s==1 then
				pc.warp(63800, 166400)
			end
			if s==2 then
				pc.warp(145500, 240000)
			end
			if s==3 then
				pc.warp(474300, 954800)
			end
			if s==4 then
				pc.warp(353100, 882900)
			end
			if s==5 then
				pc.warp(959900, 269200)
			end
			if s==6 then
				pc.warp(863900, 246000)
			end
			if s==7 then
				pc.warp(2048, 6656)
			end
			if s==8 then
				return
			end
        end
    end
end
Kann mir jemand evtl. Die Quest so Umschreiben das es dort nur die Buttons gibt :
Map1,Map2,Daemonenturm,
Wenn man dann zb auf Map1 Klickt kommt da Gelb,rot,blau und das bei Map2 auch.
Wäre total nett :)
04/03/2013 13:02 Luna.Host#7819
Hey hab Problem mit einem meiner lua Codes.

Code:
PHP Code:
setKonz = function(konz)
   if konz == true or konz == "true" then
      pc.setqf("konz", 1)
   elseif konz == false or konz == "false" then
      pc.setqf("konz", 0)
   else
      chat("Fehler aufgetreten - Bitte kontaktieren sie einen Adminisrator")
   end
end

getUser = function(skillid)
   if tonumber(skillid) then
      local skillid = tonumber(skillid)
      if skillid >= 0 and skillid <= 6 then
         return 0
      elseif skillid >= 16 and skillid <= 21 then
         return 0
      elseif skillid >= 31 and skillid <= 37 then
         return 1
      elseif skillid >= 46 and skillid <= 51 then
         return 1
      elseif skillid >= 61 and skillid <= 66 then
         return 2
      elseif skillid >= 76 and skillid <= 81 then
         return 2
      elseif skillid >= 91 and skillid <= 96 then
         return 3
      elseif skillid >= 106 and skillid <= 111 then
         return 3
      else
         return 4
      end
   else
      return nil
   end
end

fkbread = function(fkbskillvnum, jobvnum, fbkluck, fbktime, fbkexp, fkbfrom, fkbmax, fkbenableteclevels)
   pc.setqf("fkbteclevel" .. fkbskillvnum, pc.get_skill_level(fkbskillvnum) - 20)
   if pc.getqf("fkbteclevel" .. fkbskillvnum) < pc.getqf("fkbtec" .. fkbskillvnum) then
      pc.setqf("fkbtec" .. fkbskillvnum, 0)
   end
   if pc.get_job() == jobvnum or jobvnum == 4 then
      if pc.get_skill_level(fkbskillvnum) < fkbfrom then
         chat("Die Fertigkeit ist noch zu niedrig um sie mit einem Meisterbuch zu trainieren")
      else
         if fkbmax <= pc.get_skill_level(fkbskillvnum) then
            chat("Die Fertigkeit ist zu hoch um sie mit einem Meisterbuch zu trainieren")
         else
            if fbkexp <= pc.get_exp() then
               if pc.getqf("Skill" .. fkbskillvnum) < get_time() or pc.is_skill_book_no_delay() then
                  if get_time() <= pc.getqf("Skill" .. fkbskillvnum) then
                     pc.remove_skill_book_no_delay()
                  end
                  local luck = number(1, 100)
                  local konz = mysql_query_old(string.format("SELECT bType FROM player.affect WHERE bType = 512 AND dwPID = %q", pc.get_player_id()), "user", "mysqlpw", "player", "000.000.000")
                  if konz ~= "ERROR" then
                     luck = 1
                     affect.remove(512)
                  end
                    if fkbenableteclevels == luck > fbkluck or fkbenableteclevels == "true" then
                        if pc.getqf("fkbteclevel" .. fkbskillvnum) == pc.getqf("fkbtec" .. fkbskillvnum) then
                            pc.set_skill_level(fkbskillvnum, pc.get_skill_level(fkbskillvnum) + 1)
                            pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime)
                            pc.setqf("fkbteclevel" .. fkbskillvnum, pc.getqf("fkbteclevel" .. fkbskillvnum))
                            pc.setqf("fkbtec" .. fkbskillvnum, 0)
                            chat("Du hast die Fertigkeit erfolgreich erh\246ht")
                            if item.get_count() == 1 then
                                item.remove()
                        else
                           pc.remove_item(fkbskillvnum + 50400, 1)
                        end
                     else
                        pc.setqf("fkbtec" .. fkbskillvnum, pc.getqf("fkbtec" .. fkbskillvnum) + 1)
                        chat("Du hast das Fertigkeitsbuch erfolgreich gelesen")
                        chat("Du musst noch " .. pc.getqf("fkbteclevel" .. fkbskillvnum) + 1 - pc.getqf("fkbtec" .. fkbskillvnum) .. " Fertigkeitsb\252cher lesen")
                        if item.get_count() == 1 then
                            item.remove()
                        else
                            pc.remove_item(fkbskillvnum + 50400, 1)
                        end
                    else
                        pc.set_skill_level(fkbskillvnum, pc.get_skill_level(fkbskillvnum) + 1)
                        pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime)
                        chat("Du hast die Fertigkeit erfolgreich erh\246ht")
                        if item.get_count() == 1 then
                           item.remove()
                        else
                           pc.remove_item(fkbskillvnum + 50400, 1)
                           do break end
                           chat("Das hat leider nicht geklappt")
                           pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime)
                           if item.get_count() == 1 then
                              item.remove()
                           else
                              pc.remove_item(fkbskillvnum + 50400, 1)
                           end
                           if pc.get_gm_level() == 5 then
                              chat(luck .. " / " .. fbkluck)
                           else
                              local savezeit = pc.getqf("Skill" .. fkbskillvnum)
                              local akzeit = get_time()
                              local wartezeit = savezeit - akzeit
                              local wartemin = 0
                              local wartestunde = 0
                              while wartezeit >= 3600 do
                                 wartestunde = wartestunde + 1
                                 wartezeit = wartezeit - 3600
                              end
                              while wartezeit >= 60 do
                                 wartemin = wartemin + 1
                                 wartezeit = wartezeit - 60
                              end
                              if wartestunde > 0 then
                                 chat("Du musst noch " .. wartestunde .. " Stunden " .. wartemin .. " Minuten und " .. wartezeit .. " Sekunden warten bis du wieder dieses Fertigkeitsbuch lesen kannst.")
                              elseif wartemin > 0 then
                                 chat("Du musst noch " .. wartemin .. " Minuten und " .. wartezeit .. " Sekunden warten bis du wieder dieses Fertigkeitsbuch lesen kannst.")
                              else
                                 chat("Du musst noch " .. wartezeit .. " Sekunden warten bis du wieder dieses Fertigkeitsbuch lesen kannst.")
                              end
                           else
                              local fbkneedexp = fbkexp - pc.get_exp()
                              chat("Zu wenig EXP vorhanden zum lesen eines Fertigkeitsbuch")
                              chat("Du ben\246tigst noch " .. fbkneedexp .. " EXP um ein Fertigkeitsbuch zu lesen")
                           end
                        else
                           local fbkklasse = tostring("Error")
                           if pc.get_job() == 0 then
                              fbkklasse = tostring("Krieger")
                           else
                              if pc.get_job() == 1 then
                                 fbkklasse = tostring("Ninja")
                              else
                                 if pc.get_job() == 2 then
                                    fbkklasse = tostring("Sura")
                                 else
                                    if pc.get_job() == 3 then
                                       fbkklasse = tostring("Schamanen")
                                    end
                                 end
                              end
                           end
                           chat("Diese Fertigkeit ist nicht nur f\252r " .. fbkklasse)
                        end
                     end
                  end
               end
            end
         end
      end
   end
end
end 
Fehler:
PHP Code:
fkb.lua:82: `end' expected (to close `if' at line 62) near `else' 
Kann jemand helfen ?
04/03/2013 13:56 Splinglol#7820
@sponge hab mal deine quest überarbeitet und die funktioniert jz =)

PHP Code:
quest warpring begin
    state start begin
        when 70007.use begin
            local main = select("Map1", "Map2", "Dämonenturm", "Schliessen")
            if main==1 then
                local s = select("Gelbes Reich", "Rotes Reich", "Blaues Reich", "Schliessen")
                    if s==1 then
                        pc.warp(63800, 166400)
                    end
                    if s==2 then
                        pc.warp(474300, 954800)
                    end
                    if s==3 then
                        pc.warp(959900, 269200)
                    end
                    if s==4 then
                        return
                    end
            end
            if main==2 then
                local s = select("Gelbes Reich", "Rotes Reich", "Blaues Reich", "Schliessen")
                    if s==1 then
                        pc.warp(145500, 240000)
                    end
                    if s==2 then
                        pc.warp(353100, 882900)
                    end
                    if s==3 then
                        pc.warp(863900, 246000)
                    end
                    if s==4 then
                        return
                    end
            end
            if main==3 then
                pc.warp(2048, 6656)
            end
            if main==4 then
                return
            end
        end
    end
end 

PS: Ahja, noch einen Tipp, du brauchst beispielsweise bei Dämonenturm nicht immer ä = ae machen, wenn du bei Notepad++ oben auf Kodierung klickst und auf ANSI wechselst, kannst du auch Umlaute schreiben =)

PPS: @Akaja, Den Tipp bei PS kann ich dir auch nur empfehlen, bin deine Quest grad anschauen, ich sag Bescheid, wenn ich den Fehler finde ;)



EDIT: @Akaja, probier mal bei Line 73 und 82 aus den "else" ein "elseif" zu machen, sollte dann eig klappen.
04/03/2013 18:12 ©by Noa#7821
Quote:
Originally Posted by Akaja View Post
Hey hab Problem mit einem meiner lua Codes.

Code:
PHP Code:
setKonz = function(konz)
   if konz == true or konz == "true" then
      pc.setqf("konz", 1)
   elseif konz == false or konz == "false" then
      pc.setqf("konz", 0)
   else
      chat("Fehler aufgetreten - Bitte kontaktieren sie einen Adminisrator")
   end
end

getUser = function(skillid)
   if tonumber(skillid) then
      local skillid = tonumber(skillid)
      if skillid >= 0 and skillid <= 6 then
         return 0
      elseif skillid >= 16 and skillid <= 21 then
         return 0
      elseif skillid >= 31 and skillid <= 37 then
         return 1
      elseif skillid >= 46 and skillid <= 51 then
         return 1
      elseif skillid >= 61 and skillid <= 66 then
         return 2
      elseif skillid >= 76 and skillid <= 81 then
         return 2
      elseif skillid >= 91 and skillid <= 96 then
         return 3
      elseif skillid >= 106 and skillid <= 111 then
         return 3
      else
         return 4
      end
   else
      return nil
   end
end

fkbread = function(fkbskillvnum, jobvnum, fbkluck, fbktime, fbkexp, fkbfrom, fkbmax, fkbenableteclevels)
   pc.setqf("fkbteclevel" .. fkbskillvnum, pc.get_skill_level(fkbskillvnum) - 20)
   if pc.getqf("fkbteclevel" .. fkbskillvnum) < pc.getqf("fkbtec" .. fkbskillvnum) then
      pc.setqf("fkbtec" .. fkbskillvnum, 0)
   end
   if pc.get_job() == jobvnum or jobvnum == 4 then
      if pc.get_skill_level(fkbskillvnum) < fkbfrom then
         chat("Die Fertigkeit ist noch zu niedrig um sie mit einem Meisterbuch zu trainieren")
      else
         if fkbmax <= pc.get_skill_level(fkbskillvnum) then
            chat("Die Fertigkeit ist zu hoch um sie mit einem Meisterbuch zu trainieren")
         else
            if fbkexp <= pc.get_exp() then
               if pc.getqf("Skill" .. fkbskillvnum) < get_time() or pc.is_skill_book_no_delay() then
                  if get_time() <= pc.getqf("Skill" .. fkbskillvnum) then
                     pc.remove_skill_book_no_delay()
                  end
                  local luck = number(1, 100)
                  local konz = mysql_query_old(string.format("SELECT bType FROM player.affect WHERE bType = 512 AND dwPID = %q", pc.get_player_id()), "user", "mysqlpw", "player", "000.000.000")
                  if konz ~= "ERROR" then
                     luck = 1
                     affect.remove(512)
                  end
                    if fkbenableteclevels == luck > fbkluck or fkbenableteclevels == "true" then
                        if pc.getqf("fkbteclevel" .. fkbskillvnum) == pc.getqf("fkbtec" .. fkbskillvnum) then
                            pc.set_skill_level(fkbskillvnum, pc.get_skill_level(fkbskillvnum) + 1)
                            pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime)
                            pc.setqf("fkbteclevel" .. fkbskillvnum, pc.getqf("fkbteclevel" .. fkbskillvnum))
                            pc.setqf("fkbtec" .. fkbskillvnum, 0)
                            chat("Du hast die Fertigkeit erfolgreich erh\246ht")
                            if item.get_count() == 1 then
                                item.remove()
                        else
                           pc.remove_item(fkbskillvnum + 50400, 1)
                        end
                     else
                        pc.setqf("fkbtec" .. fkbskillvnum, pc.getqf("fkbtec" .. fkbskillvnum) + 1)
                        chat("Du hast das Fertigkeitsbuch erfolgreich gelesen")
                        chat("Du musst noch " .. pc.getqf("fkbteclevel" .. fkbskillvnum) + 1 - pc.getqf("fkbtec" .. fkbskillvnum) .. " Fertigkeitsb\252cher lesen")
                        if item.get_count() == 1 then
                            item.remove()
                        else
                            pc.remove_item(fkbskillvnum + 50400, 1)
                        end
                    else
                        pc.set_skill_level(fkbskillvnum, pc.get_skill_level(fkbskillvnum) + 1)
                        pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime)
                        chat("Du hast die Fertigkeit erfolgreich erh\246ht")
                        if item.get_count() == 1 then
                           item.remove()
                        else
                           pc.remove_item(fkbskillvnum + 50400, 1)
                           do break end
                           chat("Das hat leider nicht geklappt")
                           pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime)
                           if item.get_count() == 1 then
                              item.remove()
                           else
                              pc.remove_item(fkbskillvnum + 50400, 1)
                           end
                           if pc.get_gm_level() == 5 then
                              chat(luck .. " / " .. fbkluck)
                           else
                              local savezeit = pc.getqf("Skill" .. fkbskillvnum)
                              local akzeit = get_time()
                              local wartezeit = savezeit - akzeit
                              local wartemin = 0
                              local wartestunde = 0
                              while wartezeit >= 3600 do
                                 wartestunde = wartestunde + 1
                                 wartezeit = wartezeit - 3600
                              end
                              while wartezeit >= 60 do
                                 wartemin = wartemin + 1
                                 wartezeit = wartezeit - 60
                              end
                              if wartestunde > 0 then
                                 chat("Du musst noch " .. wartestunde .. " Stunden " .. wartemin .. " Minuten und " .. wartezeit .. " Sekunden warten bis du wieder dieses Fertigkeitsbuch lesen kannst.")
                              elseif wartemin > 0 then
                                 chat("Du musst noch " .. wartemin .. " Minuten und " .. wartezeit .. " Sekunden warten bis du wieder dieses Fertigkeitsbuch lesen kannst.")
                              else
                                 chat("Du musst noch " .. wartezeit .. " Sekunden warten bis du wieder dieses Fertigkeitsbuch lesen kannst.")
                              end
                           else
                              local fbkneedexp = fbkexp - pc.get_exp()
                              chat("Zu wenig EXP vorhanden zum lesen eines Fertigkeitsbuch")
                              chat("Du ben\246tigst noch " .. fbkneedexp .. " EXP um ein Fertigkeitsbuch zu lesen")
                           end
                        else
                           local fbkklasse = tostring("Error")
                           if pc.get_job() == 0 then
                              fbkklasse = tostring("Krieger")
                           else
                              if pc.get_job() == 1 then
                                 fbkklasse = tostring("Ninja")
                              else
                                 if pc.get_job() == 2 then
                                    fbkklasse = tostring("Sura")
                                 else
                                    if pc.get_job() == 3 then
                                       fbkklasse = tostring("Schamanen")
                                    end
                                 end
                              end
                           end
                           chat("Diese Fertigkeit ist nicht nur f\252r " .. fbkklasse)
                        end
                     end
                  end
               end
            end
         end
      end
   end
end
end 
Fehler:
PHP Code:
fkb.lua:82: `end' expected (to close `if' at line 62) near `else' 
Kann jemand helfen ?
PHP Code:
if pc.getqf("fkbteclevel" .. fkbskillvnum) == pc.getqf("fkbtec" .. fkbskillvnum) then 
                            pc.set_skill_level(fkbskillvnum, pc.get_skill_level(fkbskillvnum) + 1) 
                            pc.setqf("Skill" .. fkbskillvnum, get_time() + fbktime) 
                            pc.setqf("fkbteclevel" .. fkbskillvnum, pc.getqf("fkbteclevel" .. fkbskillvnum)) 
                            pc.setqf("fkbtec" .. fkbskillvnum, 0) 
                            chat("Du hast die Fertigkeit erfolgreich erh\246ht") 
                            if item.get_count() == 1 then 
                                item.remove() 
                        else 
                           pc.remove_item(fkbskillvnum + 50400, 1) 
                        end 
da fehlt ein end
PHP Code:
 if item.get_count() == 1 then 
04/03/2013 21:36 fabian1233#7822
hi aus irgendeinengrund klappt meine quest nicht

kann da mal einer drüberschaun? hier ist ausschnitt

Quote:
quest Metin2QuestReihe begin

state start begin
when login or levelup with pc.get_level() >= 5 begin
set state(lvl_5_startet)
end
end


state lvl_5_startet begin

when 20011.chat ("Die Bedrohung des Drachens")
say_npc_name("Uriel")
say("Ich bin Uriel, du hast vllt schon von mir Gehört")
say("Vielleicht kannst du mir helfen")
say("Ich bin auf der Suche nach einem Weg den Großen")
say("Drachen zu Besiegen")
say("Dafür brauche ich deine Hilfe")
wait()
say("Als erstens must du seine Helfer die Wildhunde töten")
say("Für deine hilfe werde ich dich reich Belohnen")
say("Viel Erfolg")
say_reward("Töte 125 Wildhunde")
wait()
pc.setqf("state", 125)
q.set_counter("Wildhunde", 125)
set state (Wildhunde)
end
end

state Wildhunde begin
when letter begin
send_letter("Die Bedrohung des Drachen")
say("Uriel hat dich geschickt 125 Wildhunde zu töten")
wait()
end
when info or button begin
when 101.kill begin
local count = pc.getqf("state") - 1
if count <= 1 then
pc.setqf("state", count)
q.set_counter("Wildhunde", count)
end

if count == 0 then
say_title("Alle Wildhunde getötet")
say("Gehe zurück zu Uriel.")
clear.letter
set_state(Wildhunde_tot)
end
end
end

state Wildhunde_tot begin
when 20011.chat ("Die Bedrohung des Drachen")
say_npc_name("Uriel")
say("Du hast es Wirklich geschafft")
say("Du hast alle Wildhunde getötet")
say("Dafür sollst du Großzügig entlohnt werden")
say("ich rufe dich wenn ich wieder hilfe brauche")
wait()
say_reward("Du erhälst eine Anfängerrüstung+9")
say_reward("Du erhälst eine Anfängerwaffe+9")
say_reward("Du erhälst ein Anfängerschild+9")
say_reward("Du erhälst +10 Bewspd Permanent")
say_reward("Du erhälst +5 Agspd Permanent")
say_reward("Du erhälst 250.000 gold")
wait()
pc.give_gold(250000)
pc.give_item2(13009, 1)
affect.add_collect(apply.MOV_SPEED,10,60*60*24*365 *60)
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365* 60)
if pc . job == 0 then
pc.give_item2(11209, 1)
pc.give_item2(19, 1)
end
if pc . job == 1 then
pc.give_item2(11409, 1)
pc.give_item2(1009, 1)
end
if pc . job == 2 then
pc.give_item2(11609, 1)
pc.give_item2(19, 1)

end
if pc . job == 3 then
pc.give_item2(11809, 1)
pc.give_item2(5009, 1)
end
set state (checked)
end

state checked begin
end
end
04/03/2013 21:37 .Asmos#7823
annst du auch Quests erstellen? Z.B. eine Quest dafür machen das Pferdezucker endlich seine gewünschte Funktion gibt? Muss nicht umbedingt Def geben aber es sollte aufjedenfall das Pferd benennen können.
04/04/2013 08:06 fabian1233#7824
@Asmos suchst du des:


(c)by Yoshix3
04/05/2013 00:47 .Despero™#7825
PHP Code:
quest mobileslager begin 
    state start begin 
    when 71009.use begin 
        say_title("Mobiles Lager:")
        say("")
        say("Hallo ich bin deine mobile Bank")
        say("Was möchtest du tun?")
        say("")
            local a = select ("Lager öffnen", "Yangsteine kaufen", "Abbruch")
            if a == 3 then
                return
            elseif a == 1 then
                say("Willst du das normale Lager oeffnen")
                say("oder das Itemshop Lager ?")
                local b = select ("Normales Lager", "Itemshop Lager" , "Abbrechen")
                if b == 3 then
                    return
                elseif b == 1 then
                    game.open_safebox()
                elseif b == 2 then
                    game.open_mall()
                end
        if lager == 2 then
            say("Wähle Welchen Yangstein du kaufen willst")
            local yang = select("1KKK Yangstein", "500KK Yangstein", "Nichts")
            
            if yang == 1 then
            
            if pc.money <= 1000000000 then
            say("Nicht genug Yang")
            return end
            
            if pc.money >= 1000000000 then
            pc.changemoney(-1000000000)
            pc.give_item2(20012)
            
            end
            end
            
            if yang == 2 then
            
            if pc.money <= 500000000 then
            say("Nicht genug Yang")
            return end
            
            if pc.money >= 500000000 then
            pc.changemoney(-500000000)
            pc.give_item2(53070)
            end
            end

            if yang == 3 then
            return end
            end
            end
            end
            end
            end 
Ich habe nen prob. mit meinem Quest ich kann Is und Lager öffnen aber kann keine Yangsteine kaufen zb wenn ich auf Yangsteine kaufen drücke geht der Quest fenster zu
04/05/2013 14:09 Fliegex3#7826
Ich brauche hilfe bei meiner Biologen Quest.
Man kann den NPC Baek-Go so oft andrücken wie man will und kann daher seine Stats immer erhöhen. Z.b. kann man bei der Eiskugel Quest immer die AW abholen.

PHP Code:
quest biologist_sequence begin 

    ---------------------------------- 
    -- LvL 30 / Orkzähne 
    ---------------------------------- 
    state start begin 
        when login or levelup with pc.level>29 begin 
            set_state(talk_to_disciple_lv30) 
        end     
    end 
    state talk_to_disciple_lv30 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Die Forschung des Biologen") 
        end 
        when button or info begin 
            say_title("Die Forschung des Biologen") 
            say("") 
            say("Der Biologe benötigt deine Hilfe.") 
            say("Sprich mit ihm.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Orkzähne" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("") 
            say("Oh, du hilfst mir?") 
            say("Gut ...") 
            say("Ich bin übrigens der Biologe") 
            say("und studiere zahlreiches aus der Pflanzenwelt.") 
            say("Wenn du mir bei meinen Forschungen hilfst,") 
            say("werde ich dich reich belohnen.") 
            say("") 
            wait() 
            say("Biologe:") 
            say("Ich habe vor kurzem wieder angefangen ...") 
            say("Ich Forsche an einer Legende ...") 
            say("Doch habe ich derzeit viel zu tun,") 
            say("es währe also nett, wenn du mir hilfst ...") 
            say("") 
            wait() 
            say("Biologe:") 
            say("Ich benötige zehn Orkzähne für meine Forschungen.") 
            say("Diese sind jedoch sehr zerbrechlich,") 
            say("es kann also sein, dass einige bei") 
            say("meinen Untersuchungen kaputt gehen.") 
            say("Ich benötige alle zehn,") 
            say("um meine Forschungen vollenden zu können.") 
            say("") 
            set_state(collect_orcteeth) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_orcteeth begin 
        when letter begin 
            send_letter("Die Forschung des Biologen") 
        end 
        when button or info begin 
            say_title("Orkzähne") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("zehn Orkzähne zu sammeln.") 
            say("Sammelt und bringt sie dem Biologen.") 
            say("") 
            say_item_vnum(30006)  
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 20084.chat."Orkzähne" with pc.count_item(30006)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob dieser Zahn in Ordnung ist ...") 
                say("") 
                pc.remove_item("30006", 1) 
                wait() 
                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<10 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend, dieser Zahn ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 10 Stück gebracht...") 
                        say("Nun bitte ich dich noch, mir den") 
                        say("Jinunggyis Seelenstein zu bringen.") 
                        say("Du bekommst ihn von Stolzen Orks ...")     
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_jinunggyis) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, aber der Zahn ist bei") 
                    say("den Untersuchungen zerbrochen.") 
                    say("Bitte hol mir einen neuen Orkzahn!") 
                    say("") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir den Zahn später.") 
                say("") 
            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 zehn Orkzähne gesammelt.") 
            say("Nun müsst ihr Jinunggyis Seelenstein erbeuten.") 
            say("") 
            say_item_vnum(30220) 
            say("Ob dieser Stein tatsächlich eine Seele enthält?") 
            say("") 
        end 
        when 635.kill or 636.kill or 637.kill begin 
            if pc.count_item(30220)<1 then 
                local rand = number(0,90) 
                if rand<5 then pc.give_item2(30220, 1) 
                end 
            end     
        end 
        when 20084.chat."Jinunggyis Seelenstein" begin 
            if pc.count_item(30220)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um Jinunggyis Seelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30220,1) 
                set_state(jinunggyis_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 10 Stück gebracht...") 
                say("Nun bitte ich dich noch, mir den") 
                say("Jinunggyis Seelenstein zu bringen.") 
                say("Du bekommst ihn von den Schwarzen Orks ...")     
                say("Ich denke, dafür bist du stark genug.") 
                say("")         
            end 
        end 
    end     
    state jinunggyis_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say("Um die Belohnung des Biologen zu erhalten") 
            say("suche mit den Informationen der") 
            say("Orkzähne und des Seelensteins Baek-Go auf.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) 
            set_state(collect_quest_lv40) 
        end 
    end 

    ---------------------------------- 
    -- LvL 40 / Fluchsammlung 
    ---------------------------------- 
    state collect_quest_lv40 begin 
        when login or levelup with pc.level>39 begin 
            set_state(talk_to_disciple_lv40) 
        end     
    end 
    state talk_to_disciple_lv40 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Forschung des Biologen Nr. 2") 
        end 
        when button or info begin 
            say_title("Forschung des Biologen Nr. 2") 
            say("") 
            say("Der Biologe benötigt ein weiteres Mal Hilfe.") 
            say("Er meinte, er bräuchte Hilfe auf der Suche") 
            say("nach speziellen Gegenständen.") 
            say("Sprich mit ihm,") 
            say("um eine genauere Beschreibung zu erhalten.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Fluchbücher" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("Gut, dass du gekommen bist...") 
            say("Die Untersuchung der Orkzähne") 
            say("habe ich abgeschlossen.") 
            say("Nun habe ich neue Objekte gefunden,") 
            say("die ich gerne untersuchen würde.") 
            wait() 
            say("Biologe:") 
            say("Ich würde sie ja selber sammeln,") 
            say("aber ich habe zuviel zu tun...") 
            say("Es wäre sehr nett, wenn du dies") 
            say("für mich erledigen könntest.") 
            wait() 
            say("Biologe:") 
            say("Ich möchte die Fluchbücher untersuchen.") 
            say("Davon benötige ich 15 Stück.") 
            say("Die Bücher sind jedoch ziemlich alt,") 
            say("manchmal zerfallen sie einfach!") 
            say("")                                                                                                                                                           
            set_state(collect_cursebook) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_cursebook begin 
        when letter begin 
            send_letter("Forschung des Biologen Nr. 2") 
        end 
        when button or info begin 
            say_title("Fluchsammlungen") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("15 Fluchsammlungen zu besorgen.") 
            say("Diese kannst du bei den Dunklen- und") 
            say("Hohen Peinigern erbeuten.") 
            say("") 
            say_item_vnum(30047)  
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 20084.chat."Fluchsammlungen" with pc.count_item(30047)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob dieses Buch in Ordnung ist ...") 
                say("") 
                pc.remove_item("30047", 1) 
                wait() 

                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<15 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend, diese Fluchsammlung ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 15 Sammlungen gebracht.") 
                        say("Nun, ich habe noch eine Bitte.") 
                        say("Ich benötige den Tempelseelenstein,") 
                        say("den du von Stolzen dunklen Fanatikern,") 
                        say("Kämpfern, sowie Obersten erbeuten kannst.") 
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0) 
                        set_state(collect_templekey) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, die Fluchsammlung") 
                    say("ist bei den Untersuchungen zerfallen.") 
                    say("Bitte hol mir eine neue Fluchsammlung.") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir die Fluchsammmlung später.") 
            end 
        end 
    end 
    state collect_templekey begin 
        when letter begin 
            send_letter("Tempelseelenstein") 
        end 
        when button or info begin 
            say_title("Tempelseelenstein") 
            say("") 
            say("Ihr habt alle 15 Fluchsammlungen abgegeben.") 
            say("Nun müsst ihr den Tempelseelenstein erbeuten.") 
            say("") 
            say_item_vnum(30221) 
            say("Ob dieser Stein tatsächlich Seelen") 
            say("der Tempelanhänger enthält?") 
            say("") 
        end 
        when 731.kill or 732.kill or 733.kill begin 
            if pc.count_item(30221)<1 then 
                local rand = number(0,90) 
                if rand<5 then pc.give_item2(30221, 1) 
                end 
            end     
        end 
        when 20084.chat."Tempelseelenstein" begin 
            if pc.count_item(30221)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um den Tempelseelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30221,1) 
                set_state(templekey_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 15 Sammlungen gebracht.") 
                say("Nun, ich habe noch eine Bitte.") 
                say("Ich benötige den Tempelseelenstein,") 
                say("den du von Stolzen dunklen Fanatikern,") 
                say("Kämpfern, sowie Obersten erbeuten kannst.") 
                say("Ich denke, dafür bist du stark genug.") 
                say("")         
            end 
        end 
    end 
    state templekey_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Sprich mit Baek-Go") 
            say("Um die Belohnung des Biologen zu erhalten,") 
            say("suche mit den Informationen der") 
            say("Fluchsammlungen und des Seelensteins") 
            say("Baek-Go auf. Er befindet sich in der Stadt.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
            set_state(collect_quest_lv50) 
        end 
    end 

    ---------------------------------- 
    -- LvL 50 / Dämonenandenken 
    ---------------------------------- 
    state collect_quest_lv50 begin 
        when login or levelup with pc.level>49 begin 
            set_state(talk_to_disciple_lv50) 
        end     
    end 
    state talk_to_disciple_lv50 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Forschung des Biologen Nr. 3") 
        end 
        when button or info begin 
            say_title("Forschung des Biologen Nr. 3") 
            say("") 
            say("Der Biologe benötigt ein weiteres Mal Hilfe.") 
            say("Er meinte, er bräuchte Hilfe auf der Suche") 
            say("nach speziellen Gegenständen.") 
            say("Sprich mit ihm,") 
            say("um eine genauere Beschreibung zu erhalten.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Dämonenandenken" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("Gut, dass du gekommen bist...") 
            say("Die Untersuchung der Fluchsammlungen") 
            say("habe ich abgeschlossen.") 
            say("Nun habe ich neue Objekte gefunden,") 
            say("die ich gerne untersuchen würde.") 
            wait() 
            say("Biologe:") 
            say("Ich würde sie ja selber sammeln,") 
            say("aber ich habe zuviel zu tun...") 
            say("Es wäre sehr nett, wenn du dies") 
            say("für mich erledigen könntest.") 
            wait() 
            say("Biologe:") 
            say("Ich möchte die Dämonenandenken untersuchen.") 
            say("Davon benötige ich 15 Stück.") 
            say("Diese sind jedoch ziemlich zerbrechlich,") 
            say("es kann also sein, dass einige bei") 
            say("meinen Untersuchungen kaputt gehen.") 
            say("")                                                                                                                                                           
            set_state(collect_deamonitem) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_deamonitem begin 
        when letter begin 
            send_letter("Forschung des Biologen Nr. 3") 
        end 
        when button or info begin 
            say_title("Dämonenandenken") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("15 Dämonenandenken zu besorgen.") 
            say("Diese kannst du bei den Monstern im") 
            say("Dämonenturm erbeuten.") 
            say("") 
            say_item_vnum(30015) 
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 20084.chat."Dämonenandenken" with pc.count_item(30015)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob dieses Andenken in Ordnung ist ...") 
                say("") 
                pc.remove_item("30015", 1)  
                wait() 
                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<15 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend,") 
                        say("dieses Dämonenandenken ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 15 Andenken gebracht.") 
                        say("Nun, ich habe noch eine Bitte.") 
                        say("Ich benötige Sagyis Seelenstein,") 
                        say("den du von den Monstern im Dämonenturm,") 
                        say("erbeuten kannst.") 
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_sagyis) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, das Andenken") 
                    say("ist bei den Untersuchungen zerbrochen.") 
                    say("Bitte hol mir ein Neues.") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir das Andenken später.") 
            end 
        end 
    end 
    state collect_sagyis begin 
        when letter begin 
            send_letter("Sagyis Seelenstein") 
        end 
        when button or info begin 
            say_title("Sagyis Seelenstein") 
            say("") 
            say("Ihr habt alle 15 Dämonenandenken abgegeben.") 
            say("Nun müsst ihr Sagyis Seelenstein erbeuten.") 
            say("") 
            say_item_vnum(30222) 
            say("Ob dieser Stein tatsächlich Seelen") 
            say("von Sagyis Adligen enthält?") 
            say("") 
        end 
        when 1031.kill or 1032.kill or 1033.kill or 1034.kill  begin 
            if pc.count_item(30222)<1 then 
                local rand = number(0,90) 
                if rand<5 then pc.give_item2(30222, 1) 
                end 
            end     
        end 
        when 20084.chat."Sagyis Seelenstein" begin 
            target.delete("__TARGET__") 
            if pc.count_item(30222)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um Sagyis Seelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30222,1) 
                set_state(sagyis_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 15 Andenken gebracht.") 
                say("Nun, ich habe noch eine Bitte.") 
                say("Ich benötige Sagyis Seelenstein,") 
                say("den du von den Monstern im Dämonenturm,") 
                say("erbeuten kannst.") 
                say("Ich denke, dafür bist du stark genug.") 
                say("")     
            end 
        end 
    end 
    state sagyis_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Sprich mit Baek-Go") 
            say("Um die Belohnung des Biologen zu erhalten,") 
            say("suche mit den Informationen der") 
            say("Dämonenandenken und des Seelensteins") 
            say("Baek-Go auf. Er befindet sich in der Stadt.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Verteidigung +60 (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) 
            set_state(collect_quest_lv60) 
        end 
    end 

    ---------------------------------- 
    -- LvL 60 / Eiskugeln 
    ---------------------------------- 
    state collect_quest_lv60 begin 
        when login or levelup with pc.level>59 begin 
            set_state(talk_to_disciple_lv60) 
        end     
    end 
    state talk_to_disciple_lv60 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Forschung des Biologen Nr. 4") 
        end 
        when button or info begin 
            say_title("Forschung des Biologen Nr. 4") 
            say("") 
            say("Der Biologe benötigt ein weiteres Mal Hilfe.") 
            say("Er meinte, er bräuchte Hilfe auf der Suche") 
            say("nach speziellen Gegenständen.") 
            say("Sprich mit ihm,") 
            say("um eine genauere Beschreibung zu erhalten.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Eiskugeln" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("Gut, dass du gekommen bist...") 
            say("Die Untersuchung der Dämonenandenken") 
            say("habe ich abgeschlossen.") 
            say("Nun habe ich neue Objekte gefunden,") 
            say("die ich gerne untersuchen würde.") 
            wait() 
            say("Biologe:") 
            say("Ich würde sie ja selber sammeln,") 
            say("aber ich habe zuviel zu tun...") 
            say("Es wäre sehr nett, wenn du dies") 
            say("für mich erledigen könntest.") 
            wait() 
            say("Biologe:") 
            say("Ich möchte die Eiskugeln untersuchen.") 
            say("Davon benötige ich 15 Stück.") 
            say("Diese sind jedoch ziemlich zerbrechlich,") 
            say("es kann also sein, dass einige bei") 
            say("meinen Untersuchungen kaputt gehen.") 
            say("")                                                                                                                                                           
            set_state(collect_scoops) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_scoops begin 
        when letter begin 
            send_letter("Forschung des Biologen Nr. 4") 
        end 
        when button or info begin 
            say_title("Eiskugeln") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("15 Eiskugeln zu besorgen.") 
            say("Diese kannst du bei den Eisgolems auf") 
            say("dem Berg Sohan erbeuten.") 
            say("") 
            say_item_vnum(30050) 
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 20084.chat."Eiskugeln" with pc.count_item(30050)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob diese Eiskugel in Ordnung ist ...") 
                say("") 
                pc.remove_item("30050", 1)  
                wait() 
                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<15 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend,") 
                        say("diese Eiskugel ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 15 Eiskugeln gebracht.") 
                        say("Nun, ich habe noch eine Bitte.") 
                        say("Ich benötige Aurtumryus Seelenstein,") 
                        say("den du von den Eismonstern auf dem Berg Sohan,") 
                        say("erbeuten kannst.") 
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_aurtumryus) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, die Eiskugel") 
                    say("ist bei den Untersuchungen zerbrochen.") 
                    say("Bitte hol mir eine Neue.") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir die Eiskugel später.") 
            end 
        end 
    end 
    state collect_aurtumryus begin 
        when letter begin 
            send_letter("Aurtumryus Seelenstein") 
        end 
        when button or info begin 
            say_title("Aurtumryus Seelenstein") 
            say("") 
            say("Ihr habt alle 15 Eiskugeln abgegeben.") 
            say("Nun müsst ihr Aurtumryus Seelenstein erbeuten.") 
            say("") 
            say_item_vnum(30223) 
            say("Ob dieser Stein tatsächlich Seelen") 
            say("von Aurtumryus Adligen enthält?") 
            say("") 
        end 
        when 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill begin 
            if pc.count_item(30223)<1 then 
                local rand = number(0,90) 
                if rand<5 then pc.give_item2(30223, 1) 
                end 
            end     
        end 
        when 20084.chat."Aurtumryus Seelenstein" begin 
            if pc.count_item(30223)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um Aurtumryus Seelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30223,1) 
                set_state(aurtumryus_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 15 Eiskugeln gebracht.") 
                say("Nun, ich habe noch eine Bitte.") 
                say("Ich benötige Aurtumryus Seelenstein,") 
                say("den du von den Eismonstern auf dem Berg Sohan,") 
                say("erbeuten kannst.") 
                say("Ich denke, dafür bist du stark genug.") 
                say("")             
            end 
        end 
    end 
    state aurtumryus_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Sprich mit Baek-Go") 
            say("Um die Belohnung des Biologen zu erhalten,") 
            say("suche mit den Informationen der") 
            say("Eiskugeln und des Seelensteins") 
            say("Baek-Go auf. Er befindet sich in der Stadt.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Angriffswert +50 (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60) 
            set_state(collect_quest_lv70) 
        end 
    end 

    ---------------------------------- 
    -- LvL 70 / Zelkovas Holzäste 
    ---------------------------------- 
    state collect_quest_lv70 begin 
        when login or levelup with pc.level>69 begin 
            set_state(talk_to_disciple_lv70) 
        end     
    end 
    state talk_to_disciple_lv70 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Forschung des Biologen Nr. 5") 
        end 
        when button or info begin 
            say_title("Forschung des Biologen Nr. 5") 
            say("") 
            say("Der Biologe benötigt ein weiteres Mal Hilfe.") 
            say("Er meinte, er bräuchte Hilfe auf der Suche") 
            say("nach speziellen Gegenständen.") 
            say("Sprich mit ihm,") 
            say("um eine genauere Beschreibung zu erhalten.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Zelkovas Holzäste" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("Gut, dass du gekommen bist...") 
            say("Die Untersuchung der Eiskugeln") 
            say("habe ich abgeschlossen.") 
            say("Nun habe ich neue Objekte gefunden,") 
            say("die ich gerne untersuchen würde.") 
            wait() 
            say("Biologe:") 
            say("Ich würde sie ja selber sammeln,") 
            say("aber ich habe zuviel zu tun...") 
            say("Es wäre sehr nett, wenn du dies") 
            say("für mich erledigen könntest.") 
            wait() 
            say("Biologe:") 
            say("Ich möchte Zelkovas Holzäste untersuchen.") 
            say("Davon benötige ich 25 Stück.") 
            say("Diese welken jedoch ziemlich schnell,") 
            say("es kann also sein, dass einige für") 
            say("meine Untersuchungen unbrauchbar sind.") 
            say("")                                                                                                                                                           
            set_state(collect_branches) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_branches begin 
        when letter begin 
            send_letter("Forschung des Biologen Nr. 5") 
        end 
        when button or info begin 
            say_title("Zelkovas Holzäste") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("25 von Zelkovas Holzästen zu besorgen.") 
            say("Diese kannst du bei den Monstern") 
            say("im Geisterwald erbeuten.") 
            say("") 
            say_item_vnum(30165) 
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 20084.chat."Zelkovas Holzäste" with pc.count_item(30165)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob dieser Holzast in Ordnung ist ...") 
                say("") 
                pc.remove_item("30165", 1)  
                wait() 
                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<25 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend,") 
                        say("dieser Holzast ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 25 Holzäste gebracht.") 
                        say("Nun, ich habe noch eine Bitte.") 
                        say("Ich benötige Gyimoks Seelenstein,") 
                        say("den du ebenfalls von den Monstern") 
                        say("im Geisterwald erbeuten kannst.") 
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_gyimoks) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, der Holzast") 
                    say("ist während des Transports verwelkt.") 
                    say("Bitte hol mir einen Neuen.") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir den Holzast später.") 
            end 
        end 
    end 
    state collect_gyimoks begin 
        when letter begin 
            send_letter("Gyimoks Seelenstein") 
        end 
        when button or info begin 
            say_title("Gyimoks Seelenstein") 
            say("") 
            say("Ihr habt alle 15 Eiskugeln abgegeben.") 
            say("Nun müsst ihr Gyimoks Seelenstein erbeuten.") 
            say("") 
            say_item_vnum(30224) 
            say("Ob dieser Stein tatsächlich Seelen") 
            say("von Gyimoks Adligen enthält?") 
            say("") 
        end 
        when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or  
             2312.kill or 2313.kill or 2314.kill or 2315.kill or 2306.kill or 2307.kill begin 
            if pc.count_item(30224)<1 then 
                local rand = number(0,60) 
                if rand<5 then pc.give_item2(30224, 1) 
                end 
            end     
        end 
        when 20084.chat."Gyimoks Seelenstein" begin 
            target.delete("__TARGET__") 
            if pc.count_item(30224)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um Gyimoks Seelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30224,1) 
                set_state(gyimoks_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 25 Holzäste gebracht.") 
                say("Nun...ich habe noch eine Bitte.") 
                say("Ich benötige Gyimoks Seelenstein,") 
                say("den du ebenfalls von den Monstern") 
                say("im Geisterwald erbeuten kannst.") 
                say("Ich denke, dafür bist du stark genug.") 
                say("")             
            end 
        end 
    end 
    state gyimoks_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Sprich mit Baek-Go") 
            say("Um die Belohnung des Biologen zu erhalten,") 
            say("suche mit den Informationen der") 
            say("Zelkova Holzäste und des Seelensteins") 
            say("Baek-Go auf. Er befindet sich in der Stadt.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Bewegungsgeschwindigkeit +10% (Dauerhaft)") 
            say_reward("Schadensreduzierung +10% (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60) 
            affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60*24*365*60) 
            set_state(collect_quest_lv80) 
        end 
    end 

    ---------------------------------- 
    -- LvL 80 / Tugyis Tafeln 
    ---------------------------------- 
    state collect_quest_lv80 begin 
        when login or levelup with pc.level>79 begin 
            set_state(talk_to_disciple_lv80) 
        end     
    end 
    state talk_to_disciple_lv80 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Forschung des Biologen Nr. 6") 
        end 
        when button or info begin 
            say_title("Forschung des Biologen Nr. 6") 
            say("") 
            say("Der Biologe benötigt ein weiteres Mal Hilfe.") 
            say("Er meinte, er bräuchte Hilfe auf der Suche") 
            say("nach speziellen Gegenständen.") 
            say("Sprich mit ihm,") 
            say("um eine genauere Beschreibung zu erhalten.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Tugyis Tafeln" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("Gut, dass du gekommen bist...") 
            say("Die Untersuchung der Zelkova Holzäste") 
            say("habe ich abgeschlossen.") 
            say("Nun habe ich neue Objekte gefunden,") 
            say("die ich gerne untersuchen würde.") 
            wait() 
            say("Biologe:") 
            say("Ich würde sie ja selber sammeln,") 
            say("aber ich habe zuviel zu tun...") 
            say("Es wäre sehr nett, wenn du dies") 
            say("für mich erledigen könntest.") 
            wait() 
            say("Biologe:") 
            say("Ich möchte Tugyis Tafeln untersuchen.") 
            say("Davon benötige ich 30 Stück.") 
            say("Diese sind jedoch ziemlich zerbrechlich,") 
            say("es kann also sein, dass einige bei") 
            say("meinen Untersuchungen kaputt gehen.") 
            say("")                                                                                                                                                           
            set_state(collect_plates) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_plates begin 
        when letter begin 
            send_letter("Forschung des Biologen Nr. 6") 
        end 
        when button or info begin 
            say_title("Tugyis Tafeln") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("30 von Tugyis Tafeln zu besorgen.") 
            say("Diese kannst du bei den Monstern") 
            say("im Land der Riesen erbeuten.") 
            say("") 
            say_item_vnum(30166) 
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
            local rand = number(0,1) 
            if rand<5 then pc.give_item2(30166, 1) 
            end 
        end 
        when 20084.chat."Tugyis Tafeln" with pc.count_item(30165)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob diese Tafel in Ordnung ist ...") 
                say("") 
                pc.remove_item("30166", 1) 
                wait() 
                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<30 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend,") 
                        say("diese Tafel ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 30 Tafeln gebracht.") 
                        say("Nun, ich habe noch eine Bitte.") 
                        say("Ich benötige Tugyis Seelenstein,") 
                        say("den du ebenfalls von den Monstern") 
                        say("im Land der Riesen erbeuten kannst.") 
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_tugyis) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, die Tafel") 
                    say("ist während der Untersuchung zerbrochen.") 
                    say("Bitte hol mir eine Neue.") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir die Tafel später.") 
            end 
        end 
    end 
    state collect_tugyis begin 
        when letter begin 
            send_letter("Tugyis Seelenstein") 
        end 
        when button or info begin 
            say_title("Tugyis Seelenstein") 
            say("") 
            say("Ihr habt alle 30 Tafeln abgegeben.") 
            say("Nun müsst ihr Tugyis Seelenstein erbeuten.") 
            say("") 
            say_item_vnum(30225) 
            say("Ob dieser Stein tatsächlich Seelen") 
            say("von Tugyis Adligen enthält?") 
            say("") 
        end 
        when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
            if pc.count_item(30224)<1 then 
                local rand = number(0,60) 
                if rand<5 then pc.give_item2(30225, 1) 
                end 
            end     
        end 
        when 20084.chat."Tugyis Seelenstein" begin 
            if pc.count_item(30225)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um Tugyis Seelenstein.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30225,1) 
                set_state(tugyis_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 30 Tafeln gebracht.") 
                say("Nun, ich habe noch eine Bitte.") 
                say("Ich benötige Tugyis Seelenstein,") 
                say("den du ebenfalls von den Monstern") 
                say("im Land der Riesen erbeuten kannst.") 
                say("Ich denke, dafür bist du stark genug.") 
                say("")             
            end 
        end 
    end 
    state tugyis_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Sprich mit Baek-Go") 
            say("Um die Belohnung des Biologen zu erhalten,") 
            say("suche mit den Informationen der") 
            say("Tugyis Tafeln und des Seelensteins") 
            say("Baek-Go auf. Er befindet sich in der Stadt.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
            say_reward("Schadenserhöhung +10% (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
            affect.add_collect_point(apply.POINT_ATT_BONUS,10,60*60*24*365*60) 
            set_state(collect_quest_lv90) 
        end 
    end 

    ---------------------------------- 
    -- LvL 90 / Notiz der Anführer 
    ---------------------------------- 
    state collect_quest_lv90 begin 
        when login or levelup with pc.level>79 begin 
            set_state(talk_to_disciple_lv90) 
        end     
    end 
    state talk_to_disciple_lv90 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Forschung des Biologen Nr. 7") 
        end 
        when button or info begin 
            say_title("Forschung des Biologen Nr. 7") 
            say("") 
            say("Der Biologe benötigt ein weiteres Mal Hilfe.") 
            say("Er meinte, er bräuchte Hilfe auf der Suche") 
            say("nach speziellen Gegenständen.") 
            say("Sprich mit ihm,") 
            say("um eine genauere Beschreibung zu erhalten.") 
            say("") 
            say_reward("Sprich mit dem Biologen") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Notiz der Anführer" begin 
            target.delete("__TARGET__") 
            say("Biologe:") 
            say("Gut, dass du gekommen bist...") 
            say("Die Untersuchung der Tugyis Tafeln") 
            say("habe ich abgeschlossen.") 
            say("Nun habe ich neue Objekte gefunden,") 
            say("die ich gerne untersuchen würde.") 
            wait() 
            say("Biologe:") 
            say("Ich würde sie ja selber sammeln,") 
            say("aber ich habe zuviel zu tun...") 
            say("Es wäre sehr nett, wenn du dies") 
            say("für mich erledigen könntest.") 
            wait() 
            say("Biologe:") 
            say("Ich möchte Notizen der Anführer untersuchen.") 
            say("Davon benötige ich 50 Stück.") 
            say("Es kann jedoch sein, dass sich einige") 
            say("Notizen als alt und unlesbar herausstellen.") 
            say("")                                                                                                                                                           
            set_state(collect_notices) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_notices begin 
        when letter begin 
            send_letter("Forschung des Biologen Nr. 7") 
        end 
        when button or info begin 
            say_title("Notiz der Anführer") 
            say("") 
            say("Der Biologe gab euch den Auftrag,") 
            say("50 Notizen der Anführer zu besorgen.") 
            say("Diese kannst du von den Bossen") 
            say("wie z.B. Oberork, Königsspinne,") 
            say("Neunschwanz, etc. erbeuten.") 
            say("") 
            say_item_vnum(30168) 
            say_reward("Du hast derzeit "..pc.getqf("collect_count").." abgegeben!") 
            say("") 
        end 
        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 
             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 
             5161.kill or 5162.kill or 5163.kill begin 
            local rand = number(0,1) 
            if rand<5 then pc.give_item2(30168, 1) 
            end 
        end 
        when 20084.chat."Notiz der Anführer" with pc.count_item(30168)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Einen Moment ...") 
                say("Vielen Dank,") 
                say("lasst mich schnell überprüfen") 
                say("ob diese Notiz lesbar ist ...") 
                say("") 
                pc.remove_item("30168", 1)  
                wait() 
                local rand = number(0,1) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<50 then 
                        pc.setqf("collect_count", count) 
                        say("Biologe:") 
                        say("Hervorragend,") 
                        say("diese Notiz ist in Ordnung.") 
                        say("Bringt mir noch welche, damit ich meine") 
                        say("Forschungen abschließen kann.") 
                        say("") 
                        say_reward("Ihr habt derzeit "..pc.getqf("collect_count").." abgegeben!") 
                        say("") 
                    else  
                        say("Biologe:") 
                        say("Du hast mir die 50 Notizen gebracht.") 
                        say("Nun, ich habe noch eine Bitte.") 
                        say("Ich benötige den Seelenstein der Anführer,") 
                        say("den du ebenfalls von den Bossen") 
                        say("erbeuten kannst.") 
                        say("Ich denke, dafür bist du stark genug.") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_bossKey) 
                    end 
                else                                 
                    say("Biologe:") 
                    say("Es tut mir leid, die Notiz") 
                    say("hat sich als unlesbar herausgestellt.") 
                    say("Bitte hol mir eine Neue.") 
                end 
            else 
                say("Biologe:") 
                say("Entschuldige, ich habe die letzten") 
                say("Studien noch nicht beendet ...") 
                say("Bitte bring mir die Notiz später.") 
            end 
        end 
    end 
    state collect_bossKey begin 
        when letter begin 
            send_letter("Seelenstein der Anführer") 
        end 
        when button or info begin 
            say_title("Seelenstein der Anführer") 
            say("") 
            say("Ihr habt alle 50 Notizen abgegeben.") 
            say("Nun müsst ihr den Seelenstein der Anführer") 
            say("erbeuten.") 
            say("") 
            say_item_vnum(30227) 
            say("Ob dieser Stein tatsächlich Seelen") 
            say("der Anführer enthält?") 
            say("") 
        end 
        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 
             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 
             5161.kill or 5162.kill or 5163.kill begin 
            if pc.count_item(30227)<1 then 
                local rand = number(0,1) 
                if rand<5 then pc.give_item2(30227, 1) 
                end 
            end     
        end 
        when 20084.chat."Seelenstein der Anführer" begin 
            if pc.count_item(30227)>0 then 
                say("Biologe:") 
                say("Dank deiner Hilfe verstehe ich nun") 
                say("die Legende um den Seelenstein der Anführer.") 
                say("Du hast hart gekämpft.") 
                say("Sprich mit Baek-Go, er wird dir helfen,") 
                say("deine inneren Kräfte zu steigern.") 
                say("") 
                pc.remove_item(30227,1) 
                set_state(bossKey_reward) 
            else 
                say("Biologe:") 
                say("Du hast mir die 50 Notizen gebracht.") 
                say("Nun, ich habe noch eine Bitte.") 
                say("Ich benötige den Seelenstein der Anführer,") 
                say("den du ebenfalls von den Bossen") 
                say("erbeuten kannst.") 
                say("Ich denke, dafür bist du stark genug.") 
                say("")         
            end 
        end 
    end 
    state bossKey_reward begin 
        when letter begin 
            send_letter("Sprich mit Baek-Go") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Sprich mit Baek-Go") 
            say("Um die Belohnung des Biologen zu erhalten,") 
            say("suche mit den Informationen der") 
            say("Notizen und des Seelensteins") 
            say("Baek-Go auf. Er befindet sich in der Stadt.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Ich sehe ...") 
            say("Der Biologe hat dich zu mir geschickt.") 
            say("Hier ist deine Belohnung:") 
            say("") 
            say_reward("Du erhälst:") 
            say_reward("Bewegungsgeschwindigkeit +5% (Dauerhaft)") 
            say_reward("Angriffsgeschwindigkeit +5% (Dauerhaft)") 
            say_reward("Schadensreduzierung +5% (Dauerhaft)") 
            say_reward("Angriffswert +50 (Dauerhaft)") 
            say("") 
            affect.add_collect(apply.MOV_SPEED, 5, 60*60*24*365*60) 
            affect.add_collect(apply.ATT_SPEED, 5, 60*60*24*365*60) 
            affect.add_collect(apply.ATT_GRADE_BONUS,25,60*60*24*365*60) 
            affect.add_collect(apply.DEF_GRADE_BONUS,5,60*60*24*365*60)  
        end 
    end 
end 
04/05/2013 15:36 .Cyous#7827
Guten tag liebe Community,

Undzwar geht es um meine Teleport quest...

Code:
quest lena begin
	state start begin
		when 30122.chat."TeleportGeist" with pc.get_level() >= 50 begin
			
			-- if pc.count_item(ITEMVNUM) >= ITEM.MIN.ZAHL then
				say_title(mob_name(30122).." - TeleportGeist")
				say("Hallo,auf welche Map möchtest du?")
				
				
				local ye_no = select("Farm-Map (Level 50)","Grotte der Verbannung 2 (Level 75)","Drachenraum (Level 85)","Spinnendungeon 3 (Level 100)","Farm-Map (Level 115)","Levelmap (Level 125)","Azrael Bossraum (Level 130)","Levelmap (Level 145)","Farmmap (Level 150)","Levelmap (Level 160)","Abbruch")
				if ye_no == 1 then
					pc.warp(819200, 716800)
				end
				if ye_no == 2 then
					pc.warp(153600, 1203200)
				end
				if ye_no == 3 then
					pc.warp(171900, 1221300)
				end
				if ye_no == 4 then
					pc.warp(537600, 870400)
				end
				if ye_no == 5 then
					pc.warp(921600, 153600)
				end
				if ye_no == 6 then
					pc.warp(179200, 0)
				end
				if ye_no == 7 then
					pc.warp(415200, 4316600)
				end
				if ye_no == 8 then
					pc.warp(1049600, 716800)
				end
				if ye_no == 9 then
					pc.warp(2643100, 2694300)
				end
				if ye_no == 10 then
					pc.warp(0, 450000)					
 			end
		end
	end
end
Kann mir jemand die Quest so einstellen:
-Maps ab bestimmten lvl nur erreichbar(und wenn man nicht das lvl fuer die jewalige map hatsoll dann stehen " dein lvl ist zu niedrig"
Wäre sehr dankbar.

mfg. .Cyous
04/05/2013 16:34 Splinglol#7828
@fliege, eigentlich sollte es klappen, wenn du nach der belohnung einen zusätzlichen state einbaust, z.B. nach der Belohnung set_state(complete)
und erst dann im state complete den state zur nächsten bio setzen..
04/05/2013 16:44 Fliegex3#7829
-
04/05/2013 18:46 MrPlayboy#7830
@ .Weezy™

PHP Code:
quest mobileslager begin  
    state start begin  
        when 71009.use begin  
            say_title("Mobiles Lager:") 
            say("") 
            say("Hallo ich bin deine mobile Bank") 
            say("Was möchtest du tun?") 
            say("") 
                local a=select ("Lager öffnen","Yangsteine kaufen","Abbruch") 
                    if a==3 then 
                        return 
                    elseif a==1 then 
                        say("Willst du das normale Lager oeffnen") 
                        say("oder das Itemshop Lager ?") 
                        local b=select ("Normales Lager","Itemshop Lager","Abbrechen") 
                            if b==3 then 
                                return 
                            elseif b==1 then 
                                game.open_safebox() 
                            elseif b==2 then 
                                game.open_mall() 
                            end 
                    elseif a==2 then 
                        say("Wähle Welchen Yangstein du kaufen willst") 
                        local yang=select("1KKK Yangstein", "500KK Yangstein", "Nichts")             
                            if yang == 1 then             
                                if pc.money <= 1000000000 then 
                                    say("Nicht genug Yang")            
                                elseif pc.money >= 1000000000 then 
                                    pc.changemoney(-1000000000) 
                                    pc.give_item2(20012) 
                                end             
                            elseif yang==2 then             
                                if pc.money <= 500000000 then 
                                    say("Nicht genug Yang")              
                                elseif pc.money >= 500000000 then 
                                    pc.changemoney(-500000000) 
                                    pc.give_item2(53070) 
                                end 
                            elseif yang==3 then 
                                return
                            end 
                    end 
        end 
    end 
end 
Page 522 of 845 « First 22422472512520521 522 523524532572622 Last »