Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie]Questy i nagrody biologa

Gercik

Rekomendowane odpowiedzi

Gercik Uczeń

Gercik

Opublikowano
Uczeń

Gercik

Opublikowano

Witam...

mam problem z nagrodami biologa za wykonane misje chciał bym ustawić nagrody za wykonane misje od biologa a dokładniej te za zakończone zęby orka itd które daje ten Baek-Go np za zęby chciał bym żeby dawał 10 szybkości i do tego 2 inne itemy powiedzmy małż i miecz .

może ktoś pomóc i wyjaśnić jak to edytować najlepiej na przykładzie aha i jeszcze jedno ważne to to żeby też Baek-Go wypisywał poprawnie co się dostaje.

Remotion Pasjonat

Remotion

Opublikowano
Pasjonat

Remotion

Opublikowano 

http://www.mpcforum.pl/topic/550296-spis-wszystkich-questow-jakie-byly-na-mpc/

affect.add_collect(apply.STR, xxx, 60*60*24*365*60) --- sila

affect.add_collect(apply.INT, xxx, 60*60*24*365*60) --- inteligencja

affect.add_collect(apply.CON, xxx, 60*60*24*365*60) --- energia zyciowa

affect.add_collect(apply.DEX, xxx, 60*60*24*365*60) --- zrecznosc

affect.add_collect(apply.ATT_SPEED, xxx, 60*60*24*365*60) --- szybkosc ataku

affect.add_collect(apply.MOV_SPEED, xxx, 60*60*24*365*60) --- szybkosc poruszania sie

affect.add_collect(apply.CAST_SPEED, xxx, 60*60*24*365*60) --- szybkosc magi

affect.add_collect(apply.HP_REGEN, xxx, 60*60*24*365*60) --- regeneracja pz

affect.add_collect(apply.SP_REGEN, xxx, 60*60*24*365*60) --- regeneracja pe

affect.add_collect(apply.POISON_PCT, xxx, 60*60*24*365*60) --- otrucie

affect.add_collect(apply.STUN_PCT, xxx, 60*60*24*365*60) --- omdlenie

affect.add_collect(apply.SLOW_PCT, xxx, 60*60*24*365*60) --- spowolnienie

affect.add_collect(apply.CRITICAL_PCT, xxx, 60*60*24*365*60) --- krytyk

affect.add_collect(apply.PENETRATE_PCT, xxx, 60*60*24*365*60) --- przeszywka

affect.add_collect(apply.ATTBONUS_HUMAN, xxx, 60*60*24*365*60) --- na ludzi

affect.add_collect(apply.BLOCK, xxx, 60*60*24*365*60) --- blok ciosow

affect.add_collect(apply.IMMUNE_STUN, xxx, 60*60*24*365*60) --- nno

affect.add_collect(apply.IMMUNE_SLOW, xxx, 60*60*24*365*60) --- nns

 

MAX_HP --- pukty zycia

MAX_SP --- pukty energi

CON --- energia zyciowa

INT --- inteligencja

STR --- sila

DEX --- zrecznosc

ATT_SPEED --- szybkosc ataku

MOV_SPEED --- szybkosc poruszania sie

CAST_SPEED --- szybkosc magi

HP_REGEN --- regeneracja puktow zycia

SP_REGEN --- regeneracja puktow energi

POISON_PCT --- szansa na otrucie

STUN_PCT --- szansa na omdlenie

SLOW_PCT --- szansa na spowolnienie

CRITICAL_PCT --- szansa na krytyczne uderzenie

PENETRATE_PCT --- szansa na przyszywajace uderzenie

ATTBONUS_HUMAN --- silny przeciwko ludzia

ATTBONUS_ANIMAL --- silny przeciwko zwierzeta

ATTBONUS_ORC --- silny przeciwko orka

ATTBONUS_MILGYO --- silny przeciwko mistyka

ATTBONUS_UNDEAD --- silny przeciwko nieumarlym

ATTBONUS_DEVIL --- silny przeciwko diabla

STEAL_HP --- szansa na kradziez putkow zycia

STEAL_SP --- szansa na kradziez putkow energi

MANA_BURN_PCT --- nie mam pojecia

DAMAGE_SP_RECOVER --- nie wiem

BLOCK --- szansa na blok ciosow

DODGE --- szansa na unikniecie ciosu

RESIST_SWORD --- odpornosc na miecze

RESIST_TWOHAND --- odpornosc na miecze dwureczne

RESIST_DAGGER --- odpornosc na sztylety

RESIST_BELL --- odpornosc na dzwony

RESIST_FAN --- odpornosc na wachlarze

RESIST_BOW --- odpornosc na luki

RESIST_FIRE --- odpornosc na ogien

RESIST_ELEC --- odpornosc na blyskawice

RESIST_MAGIC --- odpornosc na magie

RESIST_WIND --- odpornosc na wiatr

REFLECT_MELEE --- szansa na odbiecie ???

REFLECT_CURSE --- szansa na odbiecie klatwy ( ??? )

POISON_REDUCE --- odpornosc na otrucie

KILL_SP_RECOVER --- obrazenia absorbowane przez pukty energi

EXP_DOUBLE_BONUS --- szansa na podwojna ilosc doswiadczenia

GOLD_DOUBLE_BONUS --- szansa na podwojna ilosc yang

ITEM_DROP_BONUS --- szansa na bonus doswiadczenia

POTION_BONUS --- mikstury iles % efekt podniesiony

KILL_HP_RECOVER --- obrazenia absorbowane przez pukty zycia

IMMUNE_STUN --- nie wrazliwy na omdlenie

IMMUNE_SLOW --- nie wrazliwy na spowolnienie

IMMUNE_FALL --- nie wrazliwe na upadek

BOW_DISTANCE --- dlugosc zasiegu zluku ( chyba )

ATT_GRADE_BONUS --- wartosc ataku

DEF_GRADE_BONUS --- obrona

MAGIC_ATT_GRADE --- wartosc magicznego ataku

MAGIC_DEF_GRADE --- obrona magicza

CURSE_PCT --- szansa na klatwe ( ??? )

MAX_STAMINA --- pukty wytrzymalosci

ATT_BONUS_TO_WARRIOR --- silny przeciwko wojownika

ATT_BONUS_TO_ASSASSIN --- silny przeciwko ninja

ATT_BONUS_TO_SURA --- silny przeciwko sura

ATT_BONUS_TO_SHAMAN --- silny przeciwko szmananem

ATT_BONUS_TO_MONSTER --- silny przeciwko potwora

RESIST_WARRIOR --- odpornosc na wojownika

RESIST_ASSASSIN --- odpornosc na ninje

RESIST_SURA --- odpornosc na sure

RESIST_SHAMAN --- odpornosc na szamna

 

Witam W tym temacie przedstawiam serię questów "Analiza Biologa" edytowane przeze mnie

Nowości: Na początku dodam, że często widywałem quest na 40lvl, gdzie Kamień po oddaniu Ksiąg dropiło się w V1. Ja to poprawiłem tak aby ten kamień dropił tak jak na PL'u, czyli w świątyni.

Questy przebiegają normalnie. Bierzemy misje, dropimy itemki, oddajemy, odbieramy nagrodę. Tylko w tym przypadku umożliwiłem w pewnym sensie wybierania rozwoju własnej postaci już od 30 poziomu dzięki tym questom.

Otóż, gdy oddamy kamień i pójdziemy do Beak-Go, ten da nam dowyboru jeden z bonusów wybranych przez nas na stałe. Są to bonusy: - silny przeciwko wojownikom - silny przeciwko Ninjom - silny przeciwko Surom - silny przeciwko Szamanom

Nagrody: Za misje 30lvl: - jeden z wybranych bonusów: +10% - szybkość poruszania się 10% - 5x szkatułka wodza orków

Za misje 40lvl: - jeden z wybranych bonusów: +15% - szybkość ataku: 10% - 5x szkatułka Królowej Pająków

Za misje 50lvl: - jeden z wybranych bonusów: +20% - Obrona +200 - 5x szkatułka Króla Demonów

Za misje 60lvl: - jeden z wybranych bonusów: +25% - Wartość ataku +150 - 5x szkatułka Dziewięciu Ogonów

Za misje 70lvl: - jeden z wybranych bonusów: +30% - Bonus: Silny Przeciwko Ludziom +15% - 5x szkatułka Pustynnego Żółwia

Za misje 80lvl: - jeden z wybranych bonusów: +35% - bonus: Wartość Ataku +20% - 5x Szkatułka Zjawy Zółtego Tygrysa

Jak wgrać quest?? 

http://www.mpcforum.pl/topic/163124-tutwgrywanie-questow-na-serwer/

Na jakie serwery jest ten quest?? Polecam użyć jego na serwer easy, pvp, a nawet normal. Jest to doskonały quest pozwalający samemu wybrać kierunek rozwijania naszej postaci.

Ważne: Itemki oddaje się jedna po drugiej, nie ma limitu czasowego

Quest 30lvl 

---------------------------------------------------- -- Serwer Rehab -- Quest Edit by Flexior -- Analiza Biologa 30lv ---------------------------------------------------- quest collect_quest_lv30  begin state start begin   when login or levelup with pc.level >= 30 and pc.level <= 90 begin	set_state(information)   end end
state information begin   when letter begin	local v = find_npc_by_vnum(20084)	if v != 0 then	 target.vid("__TARGET__", v, "Analiza Biologa - Zeby Orka")	end	send_letter("Analiza Biologa - Zeby Orka")   end
 when button or info begin 	 say_title("Analiza Biologa - Zeby Orka") 	 say("") 	 say("Biolog Chaegirab, uczen Uriela,") 	 say("wlasnie Cie szukal. Prosze idz") 	 say("do niego i zaoferuj mu swoja pomoc") 	 say("")   end	 when __TARGET__.target.click or	20084.chat."Znajdz Biologa" begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	---			   l	say("Niebiosa, prosze pomozcie mi...")	say("Badam wszystkie rodzaje potworow w tym ")	say("imperium. Jest bardzo duzo rzeczy,")	say("ktore musza zostac zrobione. Nie mam")	say("czasu abym mogl sam wybrac sie na wyprawe.")	say("Prosze, pomoz mi.")	wait()	say("Aktualnie badam Zeby Orka.")	say("Musze przeprowadzic kilka eksperymentow,")	say("dlatego potrzebuje kilku Zebow Orka.")	say("Czy moglbys przyniesc mi 10 Zebow Orka?")	say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")	say("abym mial czas na ich dokladne przebadanie!")	say("")										 set_state(go_to_disciple)	pc.setqf("duration",0)	pc.setqf("collect_count",0)	pc.setqf("drink_drug",0)   end end
state go_to_disciple begin   when letter begin	send_letter("Zadanie Specjalne - Zeby Orka")	  end   when button or info begin	say_title("Znajdz Zeby Orka")	---			   l	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("szuka Zebow Orka.")	say("Zawsze przynos mu po jednym, aby mial czas")	say("na ich dokladne przebadanie.")	say("Zebow orka szukaj u Czarnych Orkow!")	say("")	say_item_vnum(30006)	say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Zebow Orka.")	say("")   end	 when 71035.use begin --°g´bĂĤô	if get_time() < pc.getqf("duration") then	 say("")	 say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")	 say("")	 return	end	if pc.getqf("drink_drug")==1 then	 say("")	 say("¤w¸g¨ĎĄÎ¤F1Ś¸")	 say("")
return	end	if pc.count_item(30006)==0 then	 say("Biolog Chaegirab:")	 say("Co? Nie przyniosles mi zadnych")	 say("Zebow Orka?...")	 say("")	 return	end	item.remove()	pc.setqf("drink_drug",1)   end
when 20084.chat."Zeby Orka" with pc.count_item(30006) >0   begin	if get_time() > pc.getqf("duration") then	 say("Biolog Chaegirab:")	 ---			   l	 say("Oh!! Znalazles!")	 say("Pozwol, ze rzuce okiem...")	 say("Jeszcze chwilke.")	 say("")	 pc.remove_item("30006", 1)	 pc.setqf("duration",get_time()+0*0*0)	 wait()		 local pass_percent	 if pc.getqf("drink_drug")==0 then 	 pass_percent=70	 else	   pass_percent=90	 end		 local s= number(1,100)	 if s<= pass_percent  then 	   if pc.getqf("collect_count")< 9 then  --10­óĄH¤U 	  local index =pc.getqf("collect_count")+1 	  pc.setqf("collect_count",index)  --¨úąo¤@­óŽÉ +1 	  say("Biolog Chaegirab:") 	  say("Oh!! Ten Zab Orka jest doskonalej jakosci!") 	  say("Przynies mi jeszcze".." "..10-pc.getqf("collect_count").. " Zebow Orka.") 	  say("Prosze, sprobuj je znalezc!") 	  say("") 	  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć 	  return 	 end 	 say("Biolog Chaegirab:") 	 say("Oh, zebrales juz wszystkie?") 	 say("Dobra robota...") 	 say("Ale poczekaj!") 	 say("Aby zakonczyc swoja prace, potrzebuje") 	 say("abys przyniosl dla mnie jeszcze jeden przedmiot!") 	 say("") 	 pc.setqf("collect_count",0) 	 pc.setqf("drink_drug",0) 	 pc.setqf("duration",0) 	 set_state(key_item) 	 return	 else			say("Biolog Chaegirab:")	 say("Ten Zab orka jest zlej jakosci!")	 say("Sprobuj przyniesc inny!")	 say("Prosze, pomoz mi!")	 pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć	 return	 end   else	 say("Biolog Chaegirab:")	 say("Jeszcze nie skonczylem badac ostatniego Zebu Orka!")	 say("Wroc pozniej, kiedy juz skoncze!")	 say("")	 return   end
end end
state key_item begin   when letter begin	send_letter("Zadanie Specjalne - Zeby Orka")	   if pc.count_item(30220)>0 then	 local v = find_npc_by_vnum(20084)	 if v != 0 then 	 target.vid("__TARGET__", v, "Analiza Biologa - Zeby Orka")	 end	end
 end   when button or info begin	if pc.count_item(30220) >0 then	 say_title("Znalazles kamien duszy!")	 say("")	 ---			   l	 say("Wroc do biologa, aby")	 say("odniesc mu kamien!")	 say("")	 return	end	say_title("Kamien Duszy")	say("")	---			   l	say("Zebrales juz wszystkie 10 Zebow!")	say("Teraz, biolog potrzebuje ostatni")	say("przedmiot, aby zakonczyc swoje badania!")	say_item_vnum(30220)	say("Mozesz go znalezc zabijajac orki")	say("w Dolinie Seungryong!")	say("")   end  
 when 635.kill or	 636.kill or	 637.kill  begin	local s = number(1, 50)	if s == 1 and pc.count_item(30220)==0 then	 pc.give_item2(30220, 1)	 send_letter("Wroc do biologa!")	 end   end   when __TARGET__.target.click  or	20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30220) > 0  begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	say("Oh, Znalazles!")	say("Bardzo Tobie dziekuje!")	say("")	say_reward("Mozesz teraz isc do Baek-Go po nagrode!")	say("")	pc.remove_item(30220,1)	set_state(__reward)   end   end state __reward begin   when letter begin	send_letter("Analiza Biologa - Nagroda")	   local v = find_npc_by_vnum(20018)	if v != 0 then	 target.vid("__TARGET__", v, "Baek-Go")	end
 end   when button or info begin	say_title("Skonczyles analize biologa!")	---			   l	say("Biolog Chaegirab wysyla Cie")	say("po nagrode do Baek-Go!")	say("")   end	 when __TARGET__.target.click  or	20018.chat."Nagroda"  begin	target.delete("__TARGET__")	say("Baek-Go:")	say("Hmm, a wiec Biolog")	say("wyslal Cie po nagrode?")	say("Zobaczmy, co tam masz...")	say("")	wait()	say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
	 local s = select("10% na Wojowników", "10% na Ninje", "10% na Sury", "10% na Szamanów") 	  if s == 1 then 	 affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 10, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 10% na Wojowników") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ") 	 say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków") 	  elseif s == 2 then 	 affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 10, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 10% na Ninje") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ") 	 say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")	 elseif s == 3 then 	 affect.add_collect(apply.POINT_ATTBONUS_SURA, 10, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 10% na Sury") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ") 	 say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")	 elseif s == 4 then 	 affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 10, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 10% na Szamanów") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ") 	 say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")	 end
  pc.give_item2(50070)	pc.give_item2(50070)	pc.give_item2(50070)	pc.give_item2(50070)	pc.give_item2(50070)	affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60Ś~
  clear_letter()	set_quest_state("collect_quest_lv40", "run")	set_state(__complete)   end	end
state __giveup__ begin   when 20084.chat."Poddajesz sie?" begin	say("Biolog Chaegirab:")	say("Czy jestes pewien, ze chcesz sie poddac!?")	say("Nie bedziesz mial szansy, aby zaczac")	say("ponownie!")	end   end state __complete begin end end

 

Quest 40lvl 

---------------------------------------------------- -- Serwer Rehab -- Quest Edit by Flexior -- Analiza Biologa 40lv ---------------------------------------------------- quest collect_quest_lv40  begin state start begin end state run begin   when login or levelup with pc.level >= 40 and pc.level <= 90 begin	set_state(information)   end end
state information begin   when letter begin	local v = find_npc_by_vnum(20084)	if v != 0 then	 target.vid("__TARGET__", v, "Analiza Biologa - Ksiegi Klatw")	end	send_letter("Analiza Biologa - Ksiegi Klatw")   end
 when button or info begin	say_title("Analiza Biologa - Ksiegi Klatw")	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("wlasnie Cie szukal. Prosze idz")	say("do niego i zaoferuj mu swoja pomoc")	say("")   end	 when __TARGET__.target.click or	20084.chat."Znajdz Biologa" begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	---			   l	say("Niebiosa, prosze pomozcie mi...")	say("Badam wszystkie rodzaje potworow w tym ")	say("imperium. Jest bardzo duzo rzeczy,")	say("ktore musza zostac zrobione. Nie mam")	say("czasu abym mogl sam wybrac sie na wyprawe.")	say("Prosze, pomoz mi.")	say("Wynagrodze Cie za to.")	wait()	say("Aktualnie badam Ksiegi Klatw.")	say("Musze przeprowadzic kilka eksperymentow,")	say("dlatego potrzebuje kilku Ksiag Klatw.")	say("Czy moglbys przyniesc mi 15 Ksiag Klatw?")	say("Prosze, pomoz mi! Zawsze przynos mi po jednej,")	say("abym mial czas na ich dokladne przebadanie!")	say("")										   set_state(go_to_disciple)	pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞşŽÉśˇ	pc.setqf("collect_count",0)----ˇX¨úąoŞşŞŤŤ~ĽĆśq	pc.setqf("drink_drug",0) ------ˇV łÜ°g´bĂĤôŞş¸Ü 1   end end
state go_to_disciple begin   when letter begin	send_letter("Zadanie Specjalne - Ksiegi Klatw")	  end   when button or info begin	say_title("Znajdz Ksiegi Klatw")	---			   l	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("szuka Ksiag Klatw.")	say("Zawsze przynos mu po jednej, aby mial czas")	say("na ich dokladne przebadanie.")	say("Ksiag Klatw szukaj pod Swiatynia Hwang!")	say("")	say_item_vnum(30047)	say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Ksiag Klatw")	say("")   end	 when 71035.use begin --°g´bĂĤô	if get_time() < pc.getqf("duration") then	 say("")	 say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")	 say("")	 return	end	if pc.getqf("drink_drug")==1 then	 say("")	 say("¤w¸g¨ĎĄÎ¤F1Ś¸")	 say("")	 return	end	if pc.count_item(30047)==0 then	 say("Biolog Chaegirab:")	 say("Co? Nie przyniosles mi zadnych")	 say("Ksiag Klatw?...")	 say("")	 return	end
  item.remove()	pc.setqf("drink_drug",1)   end

when 20084.chat."Ksiegi Klatw" with pc.count_item(30047) >0   begin	if get_time() > pc.getqf("duration") then	 say("Biolog Chaegirab:")	 ---			   l	 say("Oh!! Znalazles!")	 say("Pozwol, ze rzuce okiem...")	 say("Jeszcze chwilke.")	 say("")	 pc.remove_item(30047, 1)	 pc.setqf("duration",get_time()+0*0*0) -----------------------------------22??	 wait()		 local pass_percent	 if pc.getqf("drink_drug")==0 then 	 pass_percent=70	 else	   pass_percent=90	 end		 local s= number(1,100)	 if s<= pass_percent  then 	   if pc.getqf("collect_count")< 14 then  --15­óĄH¤U 	  local index =pc.getqf("collect_count")+1 	  pc.setqf("collect_count",index)  -- ¨úąo¤F¤@­ó+1 	  say("Biolog Chaegirab:") 	  say("Oh!! Ta Ksiega Klatw jest doskonalej jakosci!") 	  say("Przynies mi jeszcze".." "..15-pc.getqf("collect_count").. " Ksiag Klatw") 	  say("Prosze, sprobuj je znalezc!") 	  say("") 	  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć 	  return 	 end 	 say("Biolog Chaegirab:") 	 say("Oh, zebrales juz wszystkie?") 	 say("Dobra robota...") 	 say("Ale poczekaj!") 	 say("Aby zakonczyc swoja prace, potrzebuje") 	 say("abys przyniosl dla mnie jeszcze jeden przedmiot!") 	 say("") 	 pc.setqf("collect_count",0) 	 pc.setqf("drink_drug",0) 	 pc.setqf("duration",0) 	 set_state(key_item) 	 return	 else			say("Biolog Chaegirab:")	 say("Ta Ksiega Klatw jest zlej jakosci!")	 say("Sprobuj przyniesc inna!")	 say("Prosze, pomoz mi!")	 pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć	 return	end   else	 say("Biolog Chaegirab:")	 say("Jeszcze nie skonczylem badac ostatniej Ksiegi!")	 say("Wroc pozniej, kiedy juz skoncze!")	 say("")	 return   end
end end
state key_item begin   when letter begin	send_letter("Zadanie Specjalne - Ksiegi Klatw")	   if pc.count_item(30221)>0 then	 local v = find_npc_by_vnum(20084)	 if v != 0 then 	 target.vid("__TARGET__", v, "Analiza Biologa - Ksiegi Klatw")	 end	end
 end   when button or info begin	if pc.count_item(30221) >0 then	 say_title("Znalazles kamien duszy!")	 say("")	 ---			   l	 say("Wroc do biologa, aby")	 say("odniesc mu kamien!")	 say("")	 return	end
  say_title("Kamien Duszy")	say("")	---			   l	say("Zebrales juz wszystkie 15 Ksiag!")	say("Teraz, biolog potrzebuje ostatni")	say("przedmiot, aby zakonczyc swoje badania!")	say_item_vnum(30221)	say("Mozesz go znalezc zabijajac ezoteryków")	say("w Świątyni!")	say("")   end  

 when 731.kill or	 733.kill or	 734.kill or	 732.kill begin	local s = number(1, 50)	if s == 1 and pc.count_item(30221)==0 then	 pc.give_item2(30221, 1)	 send_letter("Wroc do biologa!")	 end   end
when __TARGET__.target.click  or	20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30221) > 0  begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	say("Oh, Znalazles!")	say("Bardzo Tobie dziekuje!")	say("")	say_reward("Mozesz teraz isc do Baek-Go po nagrode!")	say("")	pc.remove_item(30221,1)	set_state(__reward)   end   end state __reward begin   when letter begin	send_letter("Analiza Biologa - Nagroda")	   local v = find_npc_by_vnum(20018)	if v != 0 then	 target.vid("__TARGET__", v, "Baek-Go")	end
 end   when button or info begin	say_title("Skonczyles analize biologa!")	---			   l	say("Biolog Chaegirab wysyla Cie")	say("po nagrode do Baek-Go!")	say("")   end	 when __TARGET__.target.click  or	20018.chat."Nagroda"  begin	target.delete("__TARGET__")	say("Baek-Go:")	say("Hmm, a wiec Biolog")	say("wyslal Cie po nagrode?")	say("Zobaczmy, co tam masz...")	say("")	wait()	say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
	 local s = select("15% na Wojowników", "15% na Ninje", "15% na Sury", "15% na Szamanów") 	  if s == 1 then 	 affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 15, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 15% na Wojowników") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków") 	  elseif s == 2 then 	 affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 15, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 15% na Ninje") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")	 elseif s == 3 then 	 affect.add_collect(apply.POINT_ATTBONUS_SURA, 15, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 15% na Sury") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")	 elseif s == 4 then 	 affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 15, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 15% na Szamanów") 	 say_reward("Otrzymałeś bonus: 10% Szybkosci ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")	 end
  affect.add_collect(apply.ATT_SPEED,10,60*60*24*365*60) --- ˇV60Ś~	 pc.give_item2(50073)	pc.give_item2(50073)	pc.give_item2(50073)	pc.give_item2(50073)	pc.give_item2(50073)	   clear_letter()	set_quest_state("collect_quest_lv50", "run")	set_state(__complete)   end	end
state __giveup__ begin   when 20084.chat."Poddajesz sie?" begin	say("Biolog Chaegirab:")	say("Czy jestes pewien, ze chcesz sie poddac!?")	say("Nie bedziesz mial szansy, aby zaczac")	say("ponownie!")	end   end state __complete begin end end

 

Quest 50lvl 

---------------------------------------------------- -- Serwer Rehab -- Quest Edit by Flexior -- Analiza Biologa 50lv ---------------------------------------------------- quest collect_quest_lv50  begin state start begin end state run begin   when login or levelup with pc.level >= 50 and pc.level <= 90 begin	set_state(information)   end end
state information begin   when letter begin	local v = find_npc_by_vnum(20084)	if v != 0 then	 target.vid("__TARGET__", v, "Analiza Biologa - Pamiatki po Demonie")	end	send_letter("Analiza Biologa - Pamiatki po Demonie")   end
 when button or info begin	say_title("Analiza Biologa - Pamiatki po Demonie")	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("wlasnie Cie szukal. Prosze idz")	say("do niego i zaoferuj mu swoja pomoc")	say("")   end	 when __TARGET__.target.click or	20084.chat."Znajdz Biologa" begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	---			   l	say("Niebiosa, prosze pomozcie mi...")	say("Badam wszystkie rodzaje potworow w tym ")	say("imperium. Jest bardzo duzo rzeczy,")	say("ktore musza zostac zrobione. Nie mam")	say("czasu abym mogl sam wybrac sie na wyprawe.")	say("Prosze, pomoz mi.")	say("Wynagrodze Cie za to.")	wait()	say("Aktualnie badam Pamiatki po Demonie.")	say("Musze przeprowadzic kilka eksperymentow,")	say("dlatego potrzebuje kilku Pamiatek po Demonie.")	say("Czy moglbys przyniesc mi 15 Pamiatek po Demonie?")	say("Prosze, pomoz mi! Zawsze przynos mi po jednej,")	say("abym mial czas na ich dokladne przebadanie!")	say("")										 set_state(go_to_disciple)	pc.setqf("duration",0)  --ĄiĄH¸Ő¸ŐŞşŽÉśˇ	pc.setqf("collect_count",0)-- ¨úąoŞşŞŤŤ~ĽĆśq	pc.setqf("drink_drug",0) --łÜ°g´bĂĤôŞş¸Ü1   end end
state go_to_disciple begin   when letter begin	send_letter("Zadanie Specjalne - Pamiatki po Demonie")	  end   when button or info begin	say_title("Znajdz Pamiatki po Demonie")	---			   l	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("szuka Pamiatek po Demonie.")	say("Zawsze przynos mu po jednej, aby mial czas")	say("na ich dokladne przebadanie.")	say("Pamiatek po Demonie szukaj w Wiezy Demonow!")	say("")	say_item_vnum(30015)	say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Pamiatek po Demonie")	say("")   end	 when 71035.use begin --°g´bĂĤô	if get_time() < pc.getqf("duration") then	 say("")	 say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")	 say("")	 return	end	if pc.getqf("drink_drug")==1 then	 say("")	 say("¤w¸g¨ĎĄÎ¤F1Ś¸")	 say("")	 return	end	if pc.count_item(30015)==0 then	 say("Biolog Chaegirab:")	 say("Co? Nie przyniosles mi zadnych")	 say("Pamiatek po Demonie?...")	 say("")	 return	end
  item.remove()	pc.setqf("drink_drug",1)   end
  when 20084.chat."Pamiatki po Demonie" with pc.count_item(30015) >0   begin	if get_time() > pc.getqf("duration") then	 say("Biolog Chaegirab:")	 ---			   l	 say("Oh!! Znalazles!")	 say("Pozwol, ze rzuce okiem...")	 say("Jeszcze chwilke.")	 say("")	 pc.remove_item(30015, 1)	 pc.setqf("duration",get_time()+0*0*0) ----------------22??	 wait()		 local pass_percent	 if pc.getqf("drink_drug")==0 then 	 pass_percent=70	 else	   pass_percent=90	 end		 local s= number(1,100)	 if s<= pass_percent  then 	   if pc.getqf("collect_count")< 14 then  --15­óĄĽşˇ 	  local index =pc.getqf("collect_count")+1 	  pc.setqf("collect_count",index)  --¨úąo¤@­óŽÉ+1 	  say("Biolog Chaegirab:") 	  say("Oh!! Ta Pamiatka po Demonie jest doskonalej jakosci!") 	  say("Przynies mi jeszcze".." "..15-pc.getqf("collect_count").. " Pamiatek po Demonie") 	  say("Prosze, sprobuj je znalezc!") 	  say("") 	  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć 	  return 	 end 	 say("Biolog Chaegirab:") 	 say("Oh, zebrales juz wszystkie?") 	 say("Dobra robota...") 	 say("Ale poczekaj!") 	 say("Aby zakonczyc swoja prace, potrzebuje") 	 say("abys przyniosl dla mnie jeszcze jeden przedmiot!") 	 say("") 	 pc.setqf("collect_count",0) 	 pc.setqf("drink_drug",0) 	 pc.setqf("duration",0) 	 set_state(key_item) 	 return	 else			say("Biolog Chaegirab:")	 say("Ta Pamiatka po Demonie jest zlej jakosci!")	 say("Sprobuj przyniesc inna!")	 say("Prosze, pomoz mi!")		  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć	 return	 end   else	 say("Biolog Chaegirab:")	 say("Jeszcze nie skonczylem badac ostatniej Pamiatki!")	 say("Wroc pozniej, kiedy juz skoncze!")	 say("")	 return   end
end end
state key_item begin   when letter begin	send_letter("Zadanie Specjalne - Pamiatki po Demonie")	   if pc.count_item(30222)>0 then	 local v = find_npc_by_vnum(20084)	 if v != 0 then 	 target.vid("__TARGET__", v, "Analiza Biologa - Pamiatki po Demonie")	 end	end
 end   when button or info begin	if pc.count_item(30222) >0 then	 say_title("Znalazles kamien duszy!")	 say("")	 ---			   l	 say("Wroc do biologa, aby")	 say("odniesc mu kamien!")	 say("")	 return	end
  say_title("Kamien Duszy")	say("")	---			   l	say("Zebrales juz wszystkie 15 Pamiatek!")	say("Teraz, biolog potrzebuje ostatni")	say("przedmiot, aby zakonczyc swoje badania!")	say_item_vnum(30222)----------Żu¤`ĆFĆFťÎĄŰ	say("Mozesz go znalezc zabijajac Podle Demony")	say("w Wiezy Demonow")	say("")   end  
 when 1031.kill or	 1032.kill or	 1033.kill or	 1034.kill  begin	local s = number(1, 50)	if s == 1 and pc.count_item(30222)==0 then	 pc.give_item2(30222, 1)	 send_letter("Wroc do biologa!")	 end   end

when __TARGET__.target.click  or	20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30222) > 0  begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	say("Oh, Znalazles!")	say("Bardzo Tobie dziekuje!")	say("")	say_reward("Mozesz teraz isc do Baek-Go po nagrode!")	say("")	pc.remove_item(30222,1)	set_state(__reward)   end   end state __reward begin   when letter begin	send_letter("Analiza Biologa - Nagroda")	   local v = find_npc_by_vnum(20018)	if v != 0 then	 target.vid("__TARGET__", v, "Baek-Go")	end
 end   when button or info begin	say_title("Skonczyles analize biologa!")	---			   l	say("Biolog Chaegirab wysyla Cie")	say("po nagrode do Baek-Go!")	say("")   end	 when __TARGET__.target.click  or	20018.chat."Nagroda"  begin	target.delete("__TARGET__")	say("Baek-Go")	say("Hmm, a wiec Biolog")	say("wyslal Cie po nagrode?")	say("Zobaczmy, co tam masz...")	say("")	wait()	say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
	 local s = select("20% na Wojowników", "20% na Ninje", "20% na Sury", "20% na Szamanów") 	  if s == 1 then 	 affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 20, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 20% na Wojowników") 	 say_reward("Otrzymałeś bonus: +200 Obrony") 	 say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów") 	  elseif s == 2 then 	 affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 20, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 20% na Ninje") 	 say_reward("Otrzymałeś bonus: +200 Obrony") 	 say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")	 elseif s == 3 then 	 affect.add_collect(apply.POINT_ATTBONUS_SURA, 20, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 20% na Sury") 	 say_reward("Otrzymałeś bonus: +200 Obrony") 	 say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")	 elseif s == 4 then 	 affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 20, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 20% na Szamanów") 	 say_reward("Otrzymałeś bonus: +200 Obrony") 	 say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")	 end
  affect.add_collect(apply.DEF_GRADE_BONUS,200,60*60*24*365*60) -----ˇV60Ś~	pc.give_item2(50081)	pc.give_item2(50081)	pc.give_item2(50081)	pc.give_item2(50081)	pc.give_item2(50081)	  clear_letter()	set_quest_state("collect_quest_lv60", "run")	set_state(__complete)   end	end
state __giveup__ begin   when 20084.chat."Poddajesz sie?" begin	say("Biolog Chaegirab:")	say("Czy jestes pewien, ze chcesz sie poddac!?")	say("Nie bedziesz mial szansy, aby zaczac")	say("ponownie!")	end   end state __complete begin end end

 

Quest 60lvl 

---------------------------------------------------- -- Serwer Rehab -- Quest Edit by Flexior -- Analiza Biologa 60lv ---------------------------------------------------- quest collect_quest_lv60  begin state start begin end state run begin   when login or levelup with pc.level >= 60 and pc.level <= 90 begin	set_state(information)   end end
state information begin   when letter begin	local v = find_npc_by_vnum(20084)	if v != 0 then	 target.vid("__TARGET__", v, "Analiza Biologa - Matowe Lody")	end	send_letter("Analiza Biologa - Matowe Lody")   end
 when button or info begin	say_title("Analiza Biologa - Matowe Lody")	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("wlasnie Cie szukal. Prosze idz")	say("do niego i zaoferuj mu swoja pomoc")	say("")   end	 when __TARGET__.target.click or	20084.chat."Znajdz Biologa" begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	---			   l	say("Niebiosa, prosze pomozcie mi...")	say("Badam wszystkie rodzaje potworow w tym ")	say("imperium. Jest bardzo duzo rzeczy,")	say("ktore musza zostac zrobione. Nie mam")	say("czasu abym mogl sam wybrac sie na wyprawe.")	say("Prosze, pomoz mi.")	say("Wynagrodze Cie za to.")	wait()	say("Aktualnie badam Matowe Lody.")	say("Musze przeprowadzic kilka eksperymentow,")	say("dlatego potrzebuje kilku Matowych Lodow.")	say("Czy moglbys przyniesc mi 20 Matowych Lodow?")	say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")	say("abym mial czas na ich dokladne przebadanie!")	say("")										   set_state(go_to_disciple)	pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞşŽÉśˇ	pc.setqf("collect_count",0)----ˇX¨úąoŞşŞŤŤ~ĽĆśq	pc.setqf("drink_drug",0) ------ˇV łÜ°g´bĂĤôŞş¸Ü 1   end end
state go_to_disciple begin   when letter begin	send_letter("Zadanie Specjalne - Matowe Lody")	  end   when button or info begin	say_title("Znajdz Matowe Lody")	---			   l	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("szuka Matowych Lodow.")	say("Zawsze przynos mu po jednym, aby mial czas")	say("na ich dokladne przebadanie.")	say("Matowych Lodow szukaj na Gorze Sohan!")	say("")	say_item_vnum(30050)	say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Matowych Lodow")	say("")   end	 when 71035.use begin --°g´bĂĤô	if get_time() < pc.getqf("duration") then	 say("")	 say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")	 say("")	 return	end	if pc.getqf("drink_drug")==1 then	 say("")	 say("¤w¸g¨ĎĄÎ¤F1Ś¸")	 say("")	 return	end	if pc.count_item(30050)==0 then	 say("Biolog Chaegirab:")	 say("Co? Nie przyniosles mi zadnych")	 say("Matowych Lodow?...")	 say("")	 return	end
  item.remove()	pc.setqf("drink_drug",1)   end
when 20084.chat."Matowe Lody" with pc.count_item(30050) >0   begin	if get_time() > pc.getqf("duration") then	 say("Biolog Chaegirab:")	 ---			   l	 say("Oh!! Znalazles!")	 say("Pozwol, ze rzuce okiem...")	 say("Jeszcze chwilke.")	 say("")	 pc.remove_item(30050, 1)	 pc.setqf("duration",get_time()+0*0*0) -----------------------------------22??	 wait()		 local pass_percent	 if pc.getqf("drink_drug")==0 then 	 pass_percent=70	 else	   pass_percent=90	 end		 local s= number(1,100)	 if s<= pass_percent  then 	   if pc.getqf("collect_count")< 19 then  --20­óĄĽşˇ 	  local index =pc.getqf("collect_count")+1 	  pc.setqf("collect_count",index)  -- ¨úąo¤F¤@­ó+1 	  say("Biolog Chaegirab:") 	  say("Oh!! Ten Matowy Lod jest doskonalej jakosci!") 	  say("Przynies mi jeszcze".." "..20-pc.getqf("collect_count").. " Matowych Lodow") 	  say("Prosze, sprobuj je znalezc!") 	  say("") 	  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć 	  return 	 end 	 say("Biolog Chaegirab:") 	 say("Oh, zebrales juz wszystkie?") 	 say("Dobra robota...") 	 say("Ale poczekaj!") 	 say("Aby zakonczyc swoja prace, potrzebuje") 	 say("abys przyniosl dla mnie jeszcze jeden przedmiot!") 	 say("") 	 pc.setqf("collect_count",0) 	 pc.setqf("drink_drug",0) 	 pc.setqf("duration",0) 	 set_state(key_item) 	 return	 else			say("Biolog Chaegirab:")	 say("Ten Matowy Lod jest zlej jakosci!")	 say("Sprobuj przyniesc inna!")	 say("Prosze, pomoz mi!")	 pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć	 return	end   else	 say("Biolog Chaegirab:")	 say("Jeszcze nie skonczylem badac ostatniego Lodu!")	 say("Wroc pozniej, kiedy juz skoncze!")	 say("")	 return   end
end end
state key_item begin   when letter begin	send_letter("Zadanie Specjalne - Matowe Lody")	   if pc.count_item(30223)>0 then	 local v = find_npc_by_vnum(20084)	 if v != 0 then 	 target.vid("__TARGET__", v, "Analiza Biologa - Matowe Lody")	 end	end
 end   when button or info begin	if pc.count_item(30223) >0 then	 say_title("Znalazles kamien duszy!")	 say("")	 ---			   l	 say("Wroc do biologa, aby")	 say("odniesc mu kamien!")	 say("")	 return	end
  say_title("Kamien Duszy")	say("")	---			   l	say("Zebrales juz wszystkie 20 Lodow!")	say("Teraz, biolog potrzebuje ostatni")	say("przedmiot, aby zakonczyc swoje badania!")	say_item_vnum(30223)	say("Mozesz go znalezc zabijajac lodowe potwory")	say("na Gorze Sohan!")	say("")   end  

 when 1102.kill or	 1103.kill or	 1104.kill or	 1106.kill begin	local s = number(1, 50)	if s == 1 and pc.count_item(30223)==0 then	 pc.give_item2(30223, 1)	 send_letter("Wroc do biologa!")	 end   end
when __TARGET__.target.click  or	20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30223) > 0  begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	say("Oh, Znalazles!")	say("Bardzo Tobie dziekuje!")	say("")	say_reward("Mozesz teraz isc do Baek-Go po nagrode!")	say("")	pc.remove_item(30223,1)	set_state(__reward)   end   end state __reward begin   when letter begin	send_letter("Analiza Biologa - Nagroda")	   local v = find_npc_by_vnum(20018)	if v != 0 then	 target.vid("__TARGET__", v, "Baek-Go")	end
 end   when button or info begin	say_title("Skonczyles analize biologa!")	---			   l	say("Biolog Chaegirab wysyla Cie")	say("po nagrode do Baek-Go!")	say("")   end	 when __TARGET__.target.click  or	20018.chat."Nagroda"  begin	target.delete("__TARGET__")	say("Baek-Go:")	say("Hmm, a wiec Biolog")	say("wyslal Cie po nagrode?")	say("Zobaczmy, co tam masz...")	say("")	wait()	say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
	 local s = select("25% na Wojowników", "25% na Ninje", "25% na Sury", "25% na Szamanów") 	  if s == 1 then 	 affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 25, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 25% na Wojowników") 	 say_reward("Otrzymałeś bonus: +150 Wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów") 	  elseif s == 2 then 	 affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 25, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 25% na Ninje") 	 say_reward("Otrzymałeś bonus: +150 Wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")	 elseif s == 3 then 	 affect.add_collect(apply.POINT_ATTBONUS_SURA, 25, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 25% na Sury") 	 say_reward("Otrzymałeś bonus: +150 Wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")	 elseif s == 4 then 	 affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 25, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 25% na Szamanów") 	 say_reward("Otrzymałeś bonus: +150 Wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")	 end	   affect.add_collect(apply.ATT_GRADE_BONUS,150,60*60*24*365*60)--ˇX100Ś~	 pc.give_item2(50077)	pc.give_item2(50077)	pc.give_item2(50077)	pc.give_item2(50077)	pc.give_item2(50077)	   clear_letter()	set_quest_state("collect_quest_lv70", "run")	set_state(__complete)   end	end state __complete begin end end

 

Quest 70lvl 

---------------------------------------------------- -- Serwer Rehab -- Quest Edit by Flexior -- Analiza Biologa 70lv ---------------------------------------------------- quest collect_quest_lv70  begin state start begin end state run begin   when login or levelup with pc.level >= 70 and pc.level <= 90 begin	set_state(information)   end end
state information begin   when letter begin	local v = find_npc_by_vnum(20084)	if v != 0 then	 target.vid("__TARGET__", v, "Analiza Biologa - Konary Zelkova")	end	send_letter("Analiza Biologa - Konary Zelkova")   end
 when button or info begin	say_title("Analiza Biologa - Konary Zelkova")	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("wlasnie Cie szukal. Prosze idz")	say("do niego i zaoferuj mu swoja pomoc")	say("")   end	 when __TARGET__.target.click or	20084.chat."Znajdz Biologa" begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	---			   l	say("Niebiosa, prosze pomozcie mi...")	say("Badam wszystkie rodzaje potworow w tym ")	say("imperium. Jest bardzo duzo rzeczy,")	say("ktore musza zostac zrobione. Nie mam")	say("czasu abym mogl sam wybrac sie na wyprawe.")	say("Prosze, pomoz mi.")	say("Wynagrodze Cie za to.")	wait()	say("Aktualnie badam Konary Zelkova.")	say("Musze przeprowadzic kilka eksperymentow,")	say("dlatego potrzebuje kilku Konarow Zelkova.")	say("Czy moglbys przyniesc mi 25 Konarow Zelkova?")	say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")	say("abym mial czas na ich dokladne przebadanie!")	say("")				 set_state(go_to_disciple)	pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞşŽÉśˇ	pc.setqf("collect_count",0)--¨úąoŞşŞŤŤ~ĽĆśq	pc.setqf("drink_drug",0) --łÜ°g´bĂĤôŞş¸Ü 1   end end
state go_to_disciple begin   when letter begin	send_letter("Zadanie Specjalne - Konary Zelkova")	  end   when button or info begin	say_title("Znajdz Konary Zelkova")	---			   l	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("szuka Konarow Zelkova")	say("Zawsze przynos mu po jednym, aby mial czas")	say("na ich dokladne przebadanie.")	say("Konarow Zelkova szukaj w zwyklym i czerwonym lesie")	say("")	say_item_vnum(30165)	say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Konarow Zelkova")	say("")   end	 when 71035.use begin --°g´bĂĤô	if get_time() < pc.getqf("duration") then	 say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")	 return	end	if pc.getqf("drink_drug")==1 then	 say("¤w¸g¨ĎĄÎ¤F1Ś¸")	 return	end	if pc.count_item(30165)==0 then	 say("Biolog Chaegirab:")	 say("Co? Nie przyniosles mi zadnych")	 say("Konarow Zelkova?...")	 say("")	 return	end
  item.remove()	pc.setqf("drink_drug",1)   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  begin	local s = number(1, 5)	if s == 1 and pc.count_item(30165)==0 then	 pc.give_item2(30165)	end   end
when 20084.chat."Konary Zelkova" with pc.count_item(30165) >0   begin	if get_time() > pc.getqf("duration") then	 say("Biolog Chaegirab:")	 ---			   l	 say("Oh!! Znalazles!")	 say("Pozwol, ze rzuce okiem...")	 say("Jeszcze chwilke.")	 say("")	 pc.remove_item(30165, 1)	 pc.setqf("duration",get_time()+0*0*0)------------------22­ó¤pŽÉ	 wait()		 local pass_percent	 if pc.getqf("drink_drug")==0 then 	 pass_percent=70	 else	   pass_percent=90	 end		 local s= number(1,100)	 if s<= pass_percent  then 	   if pc.getqf("collect_count")< 24 then  --25­óĄĽşˇ 	  local index =pc.getqf("collect_count")+1 	  pc.setqf("collect_count",index)  --¨úąo¤F¤@­ó+1 	  say("Biolog Chaegirab:") 	  say("Oh!! Ten Konar Zelkova jest doskonalej jakosci!") 	  say("Przynies mi jeszcze".." "..25-pc.getqf("collect_count").. " Konarow Zelkova") 	  say("Prosze, sprobuj je znalezc!") 	  say("") 	  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć 	  return 	 end 	 say("Biolog Chaegirab:") 	 say("Oh, zebrales juz wszystkie?") 	 say("Dobra robota...") 	 say("Ale poczekaj!") 	 say("Aby zakonczyc swoja prace, potrzebuje") 	 say("abys przyniosl dla mnie jeszcze jeden przedmiot!") 	 say("") 	 pc.setqf("collect_count",0) 	 pc.setqf("drink_drug",0) 	 pc.setqf("duration",0) 	 set_state(key_item) 	 return	 else			say("Biolog Chaegirab:")	 say("Ten Konar Zelkova jest zlej jakosci!")	 say("Sprobuj przyniesc inny!")	 say("Prosze, pomoz mi!")	 pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć	 return	 end   else	 say("Biolog Chaegirab:")	 say("Jeszcze nie skonczylem badac ostatniego Konaru!")	 say("Wroc pozniej, kiedy juz skoncze!")	 say("")	 return   end
end end
state key_item begin   when letter begin	send_letter("Zadanie Specjalne - Konary Zelkova")	   if pc.count_item(30224)>0 then	 local v = find_npc_by_vnum(20084)	 if v != 0 then 	 target.vid("__TARGET__", v, "Analiza Biologa - Konary Zelkova")	 end	end
 end   when button or info begin	if pc.count_item(30224) >0 then	 say_title("Znalazles kamien duszy!")	 say("")	 ---			   l	 say("Wroc do biologa, aby")	 say("odniesc mu kamien!")	 say("")	 return	end
  say_title("Kamien Duszy")	say("")	---			   l	say("Zebrales juz wszystkie 25 Konarow Zelkova")	say("Teraz, biolog potrzebuje ostatni")	say("przedmiot, aby zakonczyc swoje badania!")	say_item_vnum(30224)----------°­¤ěĆFťÎĄŰ	say("Mozesz go znalezc zabijajac potwory")	 say("w zwykłym i czerwonym lesie")	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 begin	local s = number(1, 50)	if s == 1 and pc.count_item(30224)==0 then	 pc.give_item2(30224)	 send_letter("Wroc do biologa!")	 end   end
when __TARGET__.target.click  or	20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30224) > 0  begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	say("Oh, Znalazles!")	say("Bardzo Tobie dziekuje!")	say("")	say_reward("Mozesz teraz isc do Baek-Go po nagrode!")	say("")	pc.remove_item(30224,1)	set_state(__reward)   end   end state __reward begin   when letter begin	send_letter("Analiza Biologa - Nagroda")	   local v = find_npc_by_vnum(20018)	if v != 0 then	 target.vid("__TARGET__", v, "Baek-Go")	end
 end   when button or info begin	say_title("Skonczyles analize biologa!")	---			   l	say("Biolog Chaegirab wysyla Cie")	say("po nagrode do Baek-Go!")	say("")   end	 when __TARGET__.target.click  or	20018.chat."Nagroda"  begin	target.delete("__TARGET__")	say("Baek-Go:")	say("Hmm, a wiec Biolog")	say("wyslal Cie po nagrode?")	say("Zobaczmy, co tam masz...")	say("")	wait()	say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
	 local s = select("30% na Wojowników", "30% na Ninje", "30% na Sury", "30% na Szamanów") 	  if s == 1 then 	 affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 30, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 30% na Wojowników") 	 say_reward("Otrzymałeś bonus: +15% na Ludzi") 	 say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia") 	  elseif s == 2 then 	 affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 30, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 30% na Ninje") 	 say_reward("Otrzymałeś bonus: +15% na Ludzi") 	 say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")	 elseif s == 3 then 	 affect.add_collect(apply.POINT_ATTBONUS_SURA, 30, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 30% na Sury") 	 say_reward("Otrzymałeś bonus: +15% na Ludzi") 	 say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")	 elseif s == 4 then 	 affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 30, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 30% na Szamanów") 	 say_reward("Otrzymałeś bonus: +15% na Ludzi") 	 say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")	 end
  affect.add_collect_point(POINT_DEF_BONUS,15,60*60*24*365*60) --60łâ	 pc.give_item2(50076)	pc.give_item2(50076)	pc.give_item2(50076)	pc.give_item2(50076)	pc.give_item2(50076)
  clear_letter()	set_quest_state("collect_quest_lv80", "run")	set_state(__complete)   end	end
state __giveup__ begin   when 20084.chat."Poddajesz sie?" begin	say("Biolog Chaegirab:")	say("Czy jestes pewien, ze chcesz sie poddac!?")	say("Nie bedziesz mial szansy, aby zaczac")	say("ponownie!")	end   end state __complete begin end end

 

Quest 80lvl 

---------------------------------------------------- -- Serwer Rehab -- Quest Edit by Flexior -- Analiza Biologa 80lv ---------------------------------------------------- quest collect_quest_lv80  begin state start begin end state run begin   when login or levelup with pc.level >= 80 and pc.level <= 90 begin	set_state(information)   end end
state information begin   when letter begin	local v = find_npc_by_vnum(20084)	if v != 0 then	 target.vid("__TARGET__", v, "Analiza Biologa - Certyfikaty Tugyisa")	end	send_letter("Analiza Biologa - Certyfikaty Tugyisa")   end
 when button or info begin	say_title("Analiza Biologa - Certyfikaty Tugyisa")	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("wlasnie Cie szukal. Prosze idz")	say("do niego i zaoferuj mu swoja pomoc")	say("")   end	 when __TARGET__.target.click or	20084.chat."Znajdz Biologa" begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	---			   l	say("Niebiosa, prosze pomozcie mi...")	say("Badam wszystkie rodzaje potworow w tym ")	say("imperium. Jest bardzo duzo rzeczy,")	say("ktore musza zostac zrobione. Nie mam")	say("czasu abym mogl sam wybrac sie na wyprawe.")	say("Prosze, pomoz mi.")	say("Wynagrodze Cie za to.")	wait()	say("Aktualnie badam Certyfikaty Tugyisa")	say("Musze przeprowadzic kilka eksperymentow,")	say("dlatego potrzebuje kilku Certyfikatow Tugyisa.")	say("Czy moglbys przyniesc mi 30 Certyfikatow Tugyisa?")	say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")	say("abym mial czas na ich dokladne przebadanie!")	say("")										   set_state(go_to_disciple)	pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞşŽÉśˇ	pc.setqf("collect_count",0)----ˇX¨úąoŞşŞŤŤ~ĽĆśq	pc.setqf("drink_drug",0) ------ˇV łÜ°g´bĂĤôŞş¸Ü 1   end end
state go_to_disciple begin   when letter begin	send_letter("Zadanie Specjalne - Certyfikaty Tugyisa")	  end   when button or info begin	say_title("Znajdz Certyfikaty Tugyisa")	---			   l	say("")	say("Biolog Chaegirab, uczen Uriela,")	say("szuka Certyfikaty Tugyisa.")	say("Zawsze przynos mu po jednej, aby mial czas")	say("na ich dokladne przebadanie.")	say("Certyfikatow Tugyisa szukaj na Wezowym Polu!")	say("")	say_item_vnum(30166)	say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Certyfikatow Tugyisa")	say("")   end	 when 71035.use begin --°g´bĂĤô	if get_time() < pc.getqf("duration") then	 say("")	 say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")	 say("")	 return	end	if pc.getqf("drink_drug")==1 then	 say("")	 say("¤w¸g¨ĎĄÎ¤F1Ś¸")	 say("")	 return	end	if pc.count_item(30166)==0 then	 say("Biolog Chaegirab:")	 say("Co? Nie przyniosles mi zadnych")	 say("Certyfikatow Tugyisa?...")	 say("")	 return	end
  item.remove()	pc.setqf("drink_drug",1)   end	 when 1401.kill or	 1402.kill or	 1403.kill or	 1601.kill or	 1602.kill or	 1603.kill  begin	local s = number(1, 5)	if s == 1 and pc.count_item(30166)==0 then	 pc.give_item2(30166, 1)	end   end
when 20084.chat."Certyfikaty Tugyisa" with pc.count_item(30166) >0   begin	if get_time() > pc.getqf("duration") then	 say("Biolog Chaegirab:")	 ---			   l	 say("Oh!! Znalazles!")	 say("Pozwol, ze rzuce okiem...")	 say("Jeszcze chwilke.")	 say("")	 pc.remove_item(30166, 1)	 pc.setqf("duration",get_time()+0*0*0) -----------------------------------22??	 wait()		 local pass_percent	 if pc.getqf("drink_drug")==0 then 	 pass_percent=70	 else	   pass_percent=90	 end		 local s= number(1,100)	 if s<= pass_percent  then 	   if pc.getqf("collect_count")< 29 then  --30­óĄH¤U 	  local index =pc.getqf("collect_count")+1 	  pc.setqf("collect_count",index)  -- ¨úąo¤F¤@­ó+1 	  say("Biolog Chaegirab:") 	  say("Oh!! Ten Certyfikat Tugyisa jest doskonalej jakosci!") 	  say("Przynies mi jeszcze".." "..30-pc.getqf("collect_count").. " Certyfikatow Tugyisa") 	  say("Prosze, sprobuj je znalezc!") 	  say("") 	  pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć 	  return 	 end 	 say("Biolog Chaegirab:") 	 say("Oh, zebrales juz wszystkie?") 	 say("Dobra robota...") 	 say("Ale poczekaj!") 	 say("Aby zakonczyc swoja prace, potrzebuje") 	 say("abys przyniosl dla mnie jeszcze jeden przedmiot!") 	 say("") 	 pc.setqf("collect_count",0) 	 pc.setqf("drink_drug",0) 	 pc.setqf("duration",0) 	 set_state(key_item) 	 return	 else			say("Biolog Chaegirab:")	 say("Ten Certyfikat Tugyisa jest zlej jakosci!")	 say("Sprobuj przyniesc inny!")	 say("Prosze, pomoz mi!")	 pc.setqf("drink_drug",0)  --ĂĤôŞěŠl¤Ć	 return	end   else	 say("Biolog Chaegirab:")	 say("Jeszcze nie skonczylem badac ostatniego Certyfikatu!")	 say("Wroc pozniej, kiedy juz skoncze!")	 say("")	 return   end
end end
state key_item begin   when letter begin	send_letter("Zadanie Specjalne - Certyfikaty Tugyisa")	   if pc.count_item(30225)>0 then	 local v = find_npc_by_vnum(20084)	 if v != 0 then 	 target.vid("__TARGET__", v, "Analiza Biologa - Certyfikaty Tugyisa")	 end	end
 end   when button or info begin	if pc.count_item(30225) >0 then	 say_title("Znalazles kamien duszy!")	 say("")	 ---			   l	 say("Wroc do biologa, aby")	 say("odniesc mu kamien!")	 say("")	 return	end
  say_title("Kamien Duszy")	say("")	---			   l	say("Zebrales juz wszystkie 30 Certyfikatow!")	say("Teraz, biolog potrzebuje ostatni")	say("przedmiot, aby zakonczyc swoje badania!")	say_item_vnum(30225)	say("Mozesz go znalezc zabijajac potwory")	say("na Wezowym Polu!")	say("")   end  

 when 1401.kill or	 1402.kill or	 1403.kill or	 1601.kill or	 1602.kill or	 1603.kill  begin	local s = number(1, 50)	if s == 1 and pc.count_item(30225)==0 then	 pc.give_item2(30225, 1)	 send_letter("Wroc do biologa!")	 end   end
when __TARGET__.target.click  or	20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30225) > 0  begin	target.delete("__TARGET__")	say("Biolog Chaegirab:")	say("Oh, Znalazles!")	say("Bardzo Tobie dziekuje!")	say("")	say_reward("Mozesz teraz isc do Baek-Go po nagrode!")	say("")	pc.remove_item(30225,1)	set_state(__reward)   end   end state __reward begin   when letter begin	send_letter("Analiza Biologa - Nagroda")	   local v = find_npc_by_vnum(20018)	if v != 0 then	 target.vid("__TARGET__", v, "Baek-Go")	end
 end   when button or info begin	say_title("Skonczyles analize biologa!")	---			   l	say("Biolog Chaegirab wysyla Cie")	say("po nagrode do Baek-Go!")	say("")   end	 when __TARGET__.target.click  or	20018.chat."Nagroda"  begin	target.delete("__TARGET__")	say("Baek-Go:")	say("Hmm, a wiec Biolog")	say("wyslal Cie po nagrode?")	say("Zobaczmy, co tam masz...")	say("")	wait()	say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
	 local s = select("35% na Wojowników", "35% na Ninje", "35% na Sury", "35% na Szamanów") 	  if s == 1 then 	 affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 35, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 35% na Wojowników") 	 say_reward("Otrzymałeś bonus: +20% wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa") 	  elseif s == 2 then 	 affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 35, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 35% na Ninje") 	 say_reward("Otrzymałeś bonus: +20% wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")	 elseif s == 3 then 	 affect.add_collect(apply.POINT_ATTBONUS_SURA, 35, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 35% na Sury") 	 say_reward("Otrzymałeś bonus: +20% wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")	 elseif s == 4 then 	 affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 35, 60*60*24*365*60) --60Ś~ 	 say_reward("Otrzymałeś bonus: 35% na Szamanów") 	 say_reward("Otrzymałeś bonus: +20% wartości Ataku") 	 say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")	 end		affect.add_collect_point(POINT_ATT_BONUS,20,60*60*24*365*60) --60łâ	  pc.give_item2(50078)	pc.give_item2(50078)	pc.give_item2(50078)	pc.give_item2(50078)	pc.give_item2(50078)	   clear_letter()	set_state(__complete)   end	end
state __complete begin end end

 

Download (Wszystkie questy w paczce): 

http://www.speedyshare.com/files/26979174/Analiza_Biologa_by_Flexior.rar

Skan: 

http://www.virustotal.com/file-scan/report.html?id=8c483878fdf2ca0eac713a302c35ce184f8ec713a4d7ceaf2a19f51a40f6e922-1298220761

Jeśli Tobie się nie przydało to trudno, nie musisz mi dawać za to -

Natomiast jeśli ten quest Ci się przydał to prosiłbym o wręczenie +

Zakaz Kopiowania na inne fora bez mojej zgody

 

 

//Wszystkie questy Biologów są po Polsku tzn maja Polskie znaki typu : ą,ć,ń itp

http://www.mpcforum.pl/topic/551857-tut-polskie-znaki-w-metinie-aczzlneo/

 

154.Analiza Biologa ''Kwiaty Brzoskwini'' level : 4

 

http://wklej.to/n3JSv

 

155.Analiza Biologa ''Pokrzywy'' level: 7

 

http://wklej.to/u6caF

 

 

156.Analiza Biologa ''Kwiaty Kaki'' level: 10

 

http://wklej.to/0xYDZ

 

157.Analiza Biologa ''Korzenie Gango'' level: 15

 

http://wklej.to/ntEVQ

 

158.Analiza Biologa ''Bez'' level: 20

 

http://wklej.to/fe3kf

 

159.Analiza Biologa ''Zęby Orka'' level : 25

 

http://wklej.to/2IJnT

 

160.Analiza Biologa ''Kły Orka'' level : 30

 

http://wklej.to/qYQfL

 

161.Analiza Biologa ''Księgi Klątw'' level : 40

 

http://wklej.to/H9t2a

 

162.Analiza Biologa ''Pamiątki po Demonie'' level : 50

 

http://wklej.to/wcDDA

 

163.Analiza Biologa ''Matowe lody'' level : 60

 

http://wklej.to/npZTT

 

164.Analiza Biologa ''Konary Zelkova'' level : 70

 

http://wklej.to/p7eEG

 

165.Analiza Biologa ''Certyfikat Tugyisa'' level: 80

 

http://wklej.to/4HCbo

 

166.Analiza Biologa ''Czerwone Konary'' level: 85

 

http://wklej.to/7hQSy

 

167.Analiza Biologa ''Czerwone Konary Duchodrzewa'' level:90

 

http://wklej.to/mgZMa

 

168.Analiza Biologa ''Twarze podziemnego yeti'' level : 95

 

http://wklej.to/IlMYx

 

169.Analiza Biologa : '' PEDOBEAR W MIEŚCIE '' !! LEVE: 100

 

http://wklej.to/iT50N

 

 

Mając to powinieneś sobie poradzić .. Jeżżeli użyjesz mózgu to na pewno dasz radę , powodzenia :)

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...