Pisanie / Poprawa Questów !

pieczara22 · 27 Grudnia 2011

Co będe się rozpisywać potrzebuje 2 skryptów...

1. Skrypt na automatyczny backup logów co ileś tam ....

2. Skrypt na automatyczne usuwanie logów co ileś tam ....

Lajk i 5-ęć już czeka

Z góry dzięki

Ranimar · 27 Grudnia 2011

Witajcie.

Jest problem z odpaleniem 6 channeli na serwerze + game99.Przerobiłem takowego skrypta z plików sherera niestety każda próba włączenia serwera kończy się na zawieszeniu się przy odpalonych 3 kanałach.Myślę że to wina skryptu więc jeżeli ktoś będzie miał czas i ochote na przyglądnięciu się i wyjaśnieniu mi błędów będę baardzoo wdzięczny.

#!/bin/sh

echo -e "\033[31m

Ile Ch chcesz odpalić? \n

1 - (1) Channel\n

2 - (2) Channele\n

3- (3) Channele\n

4- (6) Channeli\033[0m"

read chs

case $chs in

1*)

echo -e "\033[31m Startuje DB\033[0m"

cd ./g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n Startuje auth\033[0m"

cd /home/game/g1/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n Startuje 1 Ch\033[0m"

cd ../../channel1/

./game &

sleep 2

;;

2*)

echo -e "\033[31m Startuje DB\033[0m"

cd ./g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n Startuje auth\033[0m"

cd ../auth

./auth &

sleep 2

clear

echo -e "\033[31m \n Startuje 1 Ch ..\033[0m"

cd ../../channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n Startuje 2 Ch ..\033[0m"

cd ../channel2/

./game &

sleep 2

clear

;;

3*)

echo -e "\033[31m Startuje DB\033[0m"

cd ./g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n Startuje auth\033[0m"

cd ../auth

./auth &

sleep 2

clear

echo -e "\033[31m \n Startuje 1 Ch ..\033[0m"

cd ../../channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n Startuje 2 Ch ..\033[0m"

cd ../channel2/

./game &

sleep 2

clear

echo -e "\033[31m \n Startuje 3 Ch ..\033[0m"

sleep 2

clear

;;

4*)

echo -e "\033[31m Startuje DB\033[0m"

cd ./g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n Startuje auth\033[0m"

cd ../auth

./auth &

sleep 2

clear

echo -e "\033[31m \n Startuje 1 Ch ..\033[0m"

cd ../../channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n Startuje 2 Ch ..\033[0m"

cd ../channel2/

./game &

sleep 2

clear

echo -e "\033[31m \n Startuje 3 Ch ..\033[0m"

cd /home/game/channel3/

./game

sleep 2

clear

echo -e "\033[31m \n Startuje 4 Ch ..\033[0m"

cd /home/game/channel4/

./game

sleep 2

clear

echo -e "\033[31m \n Startuje 5 Ch ..\033[0m"

cd /home/game/channel5/

./game

sleep 2

clear

echo -e "\033[31m \n Startuje 6 Ch ..\033[0m"

cd /home/game/channel6/

./game

sleep 2

clear

;;

esac

pieczara22 · 27 Grudnia 2011

Masz tu skrypt na start

#!/bin/sh

echo -e "\033[31m

Ile Ch wlaczyc? \n

1 - (1) CH1 \n

2 - (2) CH2 \n

3 - (3) CH3 \n

4 - (4) CH4 \n

5 - (5) CH5 \n

6 - (6) CH6 \033[0m"

read chs

case $chs in

1*)

echo -e "\033[31m Ladowanie Db ..\033[0m"

cd /usr/home/game/g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n Ladowanie Auth ..\033[0m"

cd /usr/home/game/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n Ladowanie CH 1 ..\033[0m"

cd /usr/home/game/channel1/

./game &

sleep 2

;;

2*)

echo -e "\033[31m ladowanie Db ..\033[0m"

cd /usr/home/game/g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n ladowanie Auth ..\033[0m"

cd /usr/home/game/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 1 ..\033[0m"

cd /usr/home/game/channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 2 ..\033[0m"

cd /usr/home/game/channel2/

./game &

sleep 2

clear

;;

3*)

echo -e "\033[31m ladowanie Db ..\033[0m"

cd /usr/home/game/g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n ladowanie Auth ..\033[0m"

cd /usr/home/game/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 1 ..\033[0m"

cd /usr/home/game/channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 2 ..\033[0m"

cd /usr/home/game/channel2/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 3 ..\033[0m"

cd /usr/home/game/channel3/

./game &

sleep 2

clear

;;

4*)

echo -e "\033[31m ladowanie Db ..\033[0m"

cd /usr/home/game/g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n ladowanie Auth ..\033[0m"

cd /usr/home/game/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 1 ..\033[0m"

cd /usr/home/game/channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 2 ..\033[0m"

cd /usr/home/game/channel2/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 3 ..\033[0m"

cd /usr/home/game/channel3/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 4 ..\033[0m"

cd /usr/home/game/channel4/

./game &

sleep 2

clear

;;

5*)

echo -e "\033[31m ladowanie Db ..\033[0m"

cd /usr/home/game/g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n ladowanie Auth ..\033[0m"

cd /usr/home/game/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 1 ..\033[0m"

cd /usr/home/game/channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 2 ..\033[0m"

cd /usr/home/game/channel2/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 3 ..\033[0m"

cd /usr/home/game/channel3/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 4 ..\033[0m"

cd /usr/home/game/channel4/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 5 ..\033[0m"

cd /usr/home/game/channel5/

./game &

sleep 2

clear

;;

6*)

echo -e "\033[31m ladowanie Db ..\033[0m"

cd /usr/home/game/g1/db/

./db &

sleep 2

clear

echo -e "\033[31m \n ladowanie Auth ..\033[0m"

cd /usr/home/game/auth

./auth &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 1 ..\033[0m"

cd /usr/home/game/channel1/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 2 ..\033[0m"

cd /usr/home/game/channel2/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 3 ..\033[0m"

cd /usr/home/game/channel3/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 4 ..\033[0m"

cd /usr/home/game/channel4/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 5 ..\033[0m"

cd /usr/home/game/channel5/

./game &

sleep 2

clear

echo -e "\033[31m \n ladowanie CH 6 ..\033[0m"

cd /usr/home/game/channel6/

./game &

sleep 2

clear

;;

esac

Żeby skrypt poprawnie działał musisz zmienić ścierzke do plików auth db ch1 ch2 ....

Musisz zminić to na własną ścierzke

/usr/home/game/

Peres987 · 27 Grudnia 2011

Siemka szukam Qłest na wiadomości powitalną :np Xua dołączył do gry.

I qłest na np: Xua awansował z poziomu ... na poziom ... Gratulacje, Team Xyrtia.

I qłest na poniższe Boss'y np: Xua zabił Zły Diabelski Łowca Gratulujemy.

Zły Diabelski Łowca

Zły Nieśmiertelny Łowca

Troll Egzekutor

Troll Zabujca

Bardzo bym prosił o pomoc.

Sunushi · 27 Grudnia 2011

Peres987, pisząc "qłest" nie szpanujesz lecz się ośmieszasz. To jest po prostu "quest". Jeśli mi powiesz, że nie działają Ci wiadomości o zabiciu bossa bądź quest się nie chce wgrać to dam Ci rade, daruj sobie tworzenie serwerów =)

quest Peres987 begin
state start begin
 when login begin
  if pc.getqf("login") == 0 then
   if pc.get_sex() == 0 then
 notice_all(pc.get_name().." dołączył do gry. Witamy!")
   else
 notice_all(pc.get_name().." dołączyła do gry. Witamy!")
   end
   pc.setqf("login", 1)
  end
 end

 when levelup with pc.get_level() >= 60 begin
  if pc.get_sex() == 0 then
   notice_all(pc.get_name().." awansował z poziomu "..(pc.get_level()-1).." na poziom "..pc.get_level()..". Gratulujemy!")
  else
   notice_all(pc.get_name().." awansowała z poziomu "..(pc.get_level()-1).." na poziom "..pc.get_level()..". Gratulujemy!")
  end
 end

 when aaa.kill or bbb.kill or ccc.kill or ddd.kill begin
  if mob_vnum() == aaa then
   if pc.get_sex() == 0 then
 notice_all(pc.get_name().." zabił aaa!")
   else
 notice_all(pc.get_name().." zabiła aaa!")
   end
  elseif mob_vnum() == bbb then
   if pc.get_sex() == 0 then
 notice_all(pc.get_name().." zabił bbb!")
   else
 notice_all(pc.get_name().." zabiła bbb!")
   end
  elseif mob_vnum() == ccc then
   if pc.get_sex() == 0 then
 notice_all(pc.get_name().." zabił ccc!")
   else
 notice_all(pc.get_name().." zabiła ccc!")
   end
  elseif mob_vnum() == ddd then
   if pc.get_sex() == 0 then
 notice_all(pc.get_name().." zabił ddd!")
   else
 notice_all(pc.get_name().." zabiła ddd!")
   end
  end
 end
end
end

P.S. W sumie ta wiadomość o bossie faktycznie może nie działać, mam jednak cichą nadzieję, że działa.

Wisz · 28 Grudnia 2011

quest shops begin
state start begin
when 9010.chat."Item-Shop" begin
say_title("Pomocnik:")
say("")
say("Chcesz otworzyc Item-Shop ?")
local s = select("Tak", "Nie")

if s == 1 then
npc.open_shop(13)
else
return
end

end
end

Jak to przerobić zeby po kliknieciu na "itemshop" odrazu sie otwieral bez zadnego textu , potwierdzenia tak/nie albo "OK"

poprostu cos w tym stylu

quest shops begin
state start begin
when 9010.chat."Item-Shop" begin
npc.open_shop(13)
else
return
end
end
end

krzywy_ · 28 Grudnia 2011

Ehh ;/

ile razy mam pytać i mówić ! :

@krzywy_ : czytaj ze zrozumieniem !

Mój Post : "...

a mi cały ten system jest nie potrzebny ;/

Wystarczyłby mi Quest bez żadnych kosmicznych funkcji jak pisałem wcześniej . Czy jest w ogóle taka możliwość z tym questem ?"

Tam jest quest.

Tylko musisz mieć game2089 lub game2019

Pon.Lok · 28 Grudnia 2011

Kapson co ty za questa chcesz co on ma robić. ?

LamS · 28 Grudnia 2011

Mam Questa

quest wie begin
state start begin
	when 6767 .use begin
		say_title("Witaj ".. pc.get_name() ..".")
		say("Chciałbyś Wierzchowca?")
		local s = select("Dzik","Lew","Tygrys","Wilk","NIESPODZIANKA","EXIT")
	if s == 1 then
		say_reward("Uwaga to Dzik")
		pc.mount(20110)
		end
	if s == 2 then
		say_reward("Uwaga to Lew")
		pc.mount(20113)
		end
	if s == 3 then
		say_reward("Uwaga to Tygrys")
		pc.mount(20111)
		end
	if s == 4 then
		say_reward("Uwaga to Wilk")
		pc.mount(20112)
		end
   if s == 5 then
		say_reward("Niespodzianka !")
		pc.mount(20114)
		end
	end
end
end

Proszę o jego Przeróbkę Tak aby Po kliknięciu

Wilka/Lwa/Tygrysa/Dzika/Niespodzianki Ten zwój bo to jest zwój o id 6767

założył się jak buty wiatru [zwój trwa 480H] jak zejdziemy czas się nie liczy

na każdym wierzchowcu czas się liczy

Tylko zamiast klikania prawym to trzeba sobie wybrać Obdaruje 15x Lubię TO !

A 2 Quest jaki proszę to ten z bonusami już wam zaczą sunshi któremu bardzo dziękuje i dałem mu 7/8 Lubię TO

o co chodzi w tym quescie co ma w nim być daje tu w spoilerku

Proszę o Questa Będzie on na bogato bo Dużo Pisania

Nazwa - Bonus/Bonusy ID Npc - 1234

Nazwy bonusów pochodzą z tematu xdestructx

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

Quest zaczyna się od kliknięcia na NPC [id 1234]

Bonusy -----> (i teraz dzieli się na dwa) Bonusy PVP

-----> Bonusy EXP

Bonusy PVP ---> (Znów się dzieli ) Szaman

--> Wojownik

--> Sura

---> Ninja

I Tak Wojownik rozdziela się na 3

Wojownik ----> (Znowu rodziałka) Silny 25% za 25 nieb.znaków

---> Silny 50% za 50 nieb.znaków

----> Silny 75% za 75 nieb.znaków (Na wojowniki Oczywiśćie)

Tak samo z surą szamanem i ninją

Bonusy EXP ----> ( Rozdziałka ) -----> Główne --->Siła

Inteligęcja

Witalność

Zwinność

-----> Poboczne Atak

Obrona

Potwory

Siła/int./witalność/zwin/ Dzieli się na :

(Przykład Siła)

Siła ----> Siła (100) - 100 KK

Siła (150) - 150 KK

Siła (250) - 250 KK

Teraz weśmy atak/obrona/silny na potwory :

(Teraz tu opisze wszystkie bo każdy będzie inaczej )

Atak -----> Atak (3.000) [3K] Ataku więcej - 150KK

Atak (5.000) [5K] - 250 KK

Atak (10.000) [10K] - 500KK

Obrona ->Obr. (500) - 50KK

Obr. (1.000) [1K] - 100KK

Obr. (2.500) [2.5K] - 250KK

Silny na Potwory (%) ------> Potwory (250%) - 250KK

Potwory (500%) - 500KK

Potwory (1000%) - 1KKK

napisane niezrozumiale pisać !!! potrzebuje tego questa moge dodać (amatorską wersje graficzną xDD Paint )

P.S. Zapomniałem napisać

ID NPC 1234 Quest (nazwa) Bonus lub Bonusy ID Nieb. Znaków 123455

zapomniał bym wybrany bonus trwa 1 H !!!!!

bonusów można uzywać do woli ;p

Quest (taki zarys by sunshi) trzeba dopisać bonusy expa (głowne i poboczne) Dam LubIE TO

quest bonusy_by_sunushi begin
state start begin
 when 1234.chat."Bonus/Bonusy" begin
  say_title(mob_name(1234)..":")
  say("Wybierz rodzaj bonusu:")
  local a = select("Bonusy PVP","Bonusy EXP")
  if a == 1 then
	say_title(mob_name(1234)..":")
	local b = select("Wojownik", "Ninja", "Sura", "Szaman", "Anuluj")
	if b == 5 then
	 return
	end
	local job
	if b == 1 then
	 job = "Wojownik"
	elseif b == 2 then
	 job = "Ninja"
	elseif b == 3 then
	 job = "Sura"
	elseif b == 4 then
	 job = "Szaman"
	end
	say_title(mob_name(1234)..":")
	say("Wybierz jak mocny ma być bonus:")
	say("25% Silny przeciwko - 25 Nieb. Znaków,")
	say("50% Silny przeciwko - 50 Nieb. Znaków,")
	say("75% Silny przeciwko - 75 Nieb. Znaków.")
	local c = select("25%", "50%", "75%", "Anuluj")
	if c == 1 then
	 say_title(mob_name(1234)..":")
	 say("Wybrałeś następujący bonus:")
	 say("25% Silny przeciwko "..job.." na 1h.")
	 if pc.countitem(123455) < 25 then
	  say_notice("Nie masz wystarczającej ilości Nieb. Znaków.")
	  return
	 end
	 say("Czy na pewno chcesz ten bon?")
	 local sel = select("Tak", "Nie")
	 if sel == 2 then
	  return
	 end
	 say_title(mob_name(1234)..":")
	 say("Otrzymałeś następujący bonus:")
	 say("25% Silny przeciwko "..job.." na 1h.")
	 if b == 1 then
	  affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 25, 60*60)
	 elseif b == 2 then
	  affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 25, 60*60)
	 elseif b == 3 then
	  affect.add_collect(apply.ATT_BONUS_TO_SURA, 25, 60*60)
	 elseif b == 4 then
	  affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 25, 60*60)
	 end
	 pc.remove_item(123455, 25)
	 say("")
	elseif c == 2 then
	 say_title(mob_name(1234)..":")
	 say("Wybrałeś następujący bonus:")
	 say("50% Silny przeciwko "..job.." na 1h.")
	 if pc.countitem(123455) < 50 then
	  say_notice("Nie masz wystarczającej ilości Nieb. Znaków.")
	  return
	 end
	 say("Czy na pewno chcesz ten bon?")
	 local sel = select("Tak","Nie")
	 if sel == 2 then
	  return
	 end
	 say_title(mob_name(1234)..":")
	 say("Otrzymałeś następujący bonus:")
	 say("50% Silny przeciwko "..job.." na 1h.")
	 if b == 1 then
	  affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 50, 60*60)
	 elseif b == 2 then
	  affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 50, 60*60)
	 elseif b == 3 then
	  affect.add_collect(apply.ATT_BONUS_TO_SURA, 50, 60*60)
	 elseif b == 4 then
	  affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 50, 60*60)
	 end
	 say("")
	 pc.remove_item(123455, 50)
	elseif c == 3 then
	 say_title(mob_name(1234)..":")
	 say("Wybrałeś następujący bonus:")
	 say("75% Silny przeciwko "..job.." na 1h.")
	 if pc.countitem(123455) < 75 then
	  say_notice("Nie masz wystarczającej ilości Nieb. Znaków.")
	  return
	 end
	 say("Czy na pewno chcesz ten bon?")
	 local sel = select("Tak","Nie")
	 if sel == 2 then
	  return
	 end
	 say_title(mob_name(1234)..":")
	 say("Otrzymałeś następujący bonus:")
	 say("75% Silny przeciwko "..job.." na 1h.")
	 if b == 1 then
	  affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 75, 60*60)
	 elseif b == 2 then
	  affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 75, 60*60)
	 elseif b == 3 then
	  affect.add_collect(apply.ATT_BONUS_TO_SURA, 75, 60*60)
	 elseif b == 4 then
	  affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 75, 60*60)
	 end
	 say("")
	 pc.remove_item(123455, 75)
	else
	 return
	end
  elseif a == 2 then
	say_title(mob_name(1234)..":")
	local d = select("Główne", "Poboczne", "Anuluj")
	if d == 3 then
	 return
	elseif d == 1 then
	 say_title(mob_name(1234)..":")
	 local e = select("Witalność ", "Inteligencja", "Siła", "Zręczność ", "Anuluj")
	 if e == 5 then
	  return
	 elseif e == 1 then
	  say_title(mob_name(1234)..":")
	  say("Wybierz jak mocny ma być bonus:")
	  say("+100 witalność - 100kk,")
	  say("+150 witalność - 150kk,")
	  say("+250 witalność - 250kk.")
	  local f = select("+100", "+150", "+250", "Anuluj")
	  if f == 4 then
	   return
	  elseif f == 1 then
	   say("Wybrałeś bonus +100 witalności.")

pan.lok zajmujesz się questami ?

pls pomurz

Sunushi · 28 Grudnia 2011

Wisz:

quest shops begin
state start begin
 when 9010.chat."Item-Shop" begin
  npc.open_shop(13)
  return
 end
end
end

Jeśli nie zadziała to spróbuj tak:

quest shops begin
state start begin
 when 9010.chat."Item-Shop" begin
  npc.open_shop(13)
  setskin(NOWINDOW)
  return
 end
end
end

dominikczek · 28 Grudnia 2011

Proszę o poprawe questu

quest phoenix begin
   state start begin
    when 99019.use begin
 local a = select("1","2","3","4","5","6","7","8","9","Anuluj")
 if a == 1 then
 chat("Twoj phoenix zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("22")
 horse.unsummon() horse.summon()
 set_state(back)
 elseif a == 2 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("23")
 elseif a == 3 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("24")
 elseif a == 4 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("25")
 elseif a == 5 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("26")
 elseif a == 6 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("27")
 elseif a == 7 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("28")
 elseif a == 8 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("29")
 elseif a == 9 then
 chat("Twoj xxx zostal przywolany!")
 affect.add_collect(apply.CON,25,60*60*24*365*60)	   
 affect.add_collect(apply.INT,10,60*60*24*365*60)
 affect.add_collect(apply.STR,10,60*60*24*365*60)
 affect.add_collect(apply.DEX,10,60*60*24*365*60)
 affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)
 horse.set_level ("30")
 return
 end
set_state(back)
end
end

Warlok20 · 28 Grudnia 2011

Poprawa questu:

if pc . getqf ( "basic_weapon" ) == 0 then
pc . setqf ( "basic_weapon" , 1 )
local item = 19
if pc . job == 1 then
pc . give_exp2 ( )
pc . change_money ( 100000 )
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
pc . give_item2 ( "11499" )
pc . give_item2 ("1139")
pc . give_item2 ("14209")
pc . give_item2 ("15209")
pc . give_item2 ("16209")
pc . give_item2 ("17209")
pc . give_item2 ("13069")
pc . give_item2 ("2179")
elseif pc . job == 0 then
say ( "Eq, Money, Horse  Enjoy!" )
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
pc . change_money ( 100000 )
pc . give_exp2 ( 0 )
pc . give_item2 ("11299")
pc . give_item2 ("189")
pc . give_item2 ("3169")
pc . give_item2 ("14209")
pc . give_item2 ("15209")
pc . give_item2 ("16209")
pc . give_item2 ("17209")
pc . give_item2 ("13069")
elseif pc . job == 2 then
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
pc . change_money 100000 )
pc . give_exp2 ( 0 )
pc . give_item2 ("11699")
pc . give_item2 ("189")
pc . give_item2 ("199")
pc . give_item2 ("14209")
pc . give_item2 ("15209")
pc . give_item2 ("16209")
pc . give_item2 ("17209")
pc . give_item2 ("13069")
elseif pc . job == 3 then
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
horse . advance (11)
pc . change_money ( 100000 )
pc . give_exp2 ( 0 )
pc . give_item2 ( " 14209" )
pc . give_item2 ( "7199" )
pc . give_item2 ( "11899" )
pc . give_item2 ( "15209" )
pc . give_item2 ( "16209" )
pc . give_item2 ( "17209" )
pc . give_item2 ( "13069" )
pc . give_item2 ( "5129" )
end
if pc . countitem ( item ) == 0 and pc . weapon ~= item then
pc . give_item2 ( item )
pc . give_item2 ( 27001 , 5 )
end
end

dominikczek · 29 Grudnia 2011

maerader nie mozna zrobić takiego czegoś musiał byś sobie system petów zrobić cały tutaj masz link

http://www.elitepvpers.com/forum/metin2-pserver-guides-strategies/1589070-release-pet-system-alternative-full.html

nfsfankp50098 · 29 Grudnia 2011

Witam

Potrzebuje quest

Ten quest ma mnie teleportować na nową mapę za item

Czyli Mapa ma się nazywać Zamek Diabła a kordy na nią to 793600 0

Czyli idę do npc o id 9993 i mówi mi że za item 30186 Mnie przeniesie na nową mapę.

Jestem zielony w pisaniu questów więc proszę o pomoc!

PROSZĘ O SZYBKĄ ODPOWIEDZ QUEST JEST PILNY!!!!!

kilu · 29 Grudnia 2011

Proszę o sprawdzenie moich questów, przy pierwszym quescie po oddaniu potrzebnych itemkow udaje sie do bake-go po nagrode lecz ten sie zwiesza i nie da sie na niego kliknac pomimo ze sie swieci, przed wzieciem questa od biologa normalnie bylo mozna.

Poza tym przed wzięciem questa mozna bylo na neigo kliknac i byla opcja "o biolog cie do mnie przyslal"

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("")
					say_reward("Otrzymujesz 10% szybkości poruszania się")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")
					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

Biolog na 40 lvl

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("")
					say_reward("Otrzymujesz +15 szybkości ataku")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")
					affect.add_collect(apply.ATT_SPEED,15,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

Biolog 50lvl

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("30% regeneracji hp", "2000 hp")
					if s == 1 then
									affect.add_collect(apply.HP_REGEN, 30, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 30% regeneracji hp")
									say_reward("Otrzymałeś bonus: +60 Obrony")
									say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
					elseif s == 2 then
									affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 2000 hp")
									say_reward("Otrzymałeś bonus: +60 Obrony")
									say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")

							end


					affect.add_collect(apply.DEF_GRADE_BONUS,60,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/[code]
[/spoiler]

Biolog 60lvl

[spoiler][code]
quest collect_quest_lv60  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 60 and pc.level <= 99 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()+60*1*15) -----------------------------------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("10% szans na krytyka", "10% szans na przeszywke")
					if s == 1 then
									affect.add_collect(apply.CRITICAL_PCT,10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% na krytyczne uderzenie")

					elseif s == 2 then
									affect.add_collect(apply.PENETRATE_PCT,10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% na przeszywajace uderzenie")


							end
					say_reward("Otrzymałeś +110 wartosci ataku")
					say_reward("Na zawsze!")
					say_reward("oraz")
					say_reward("Otrzymałeś 5x Dziewieciu Ogonow")

					affect.add_collect(apply.ATT_GRADE_BONUS,110,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

Biolog zelkovy 70+

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("5% szans na zablokowanie ataku fizycznego", "5% szans na unikniecie strzaly", "10% odporności na otrucie", "10% szans na odbicie ciosu w cialo")
					if s == 1 then
									affect.add_collect(apply.POINT_BLOCK, 5, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 5% szans na zablokowanie ataku fizycznego)
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")
					elseif s == 2 then
									affect.add_collect(apply.POINT_DODGE, 5, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 5% szans na unikniecie strzaly")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

					elseif s == 3 then
									affect.add_collect(apply.POISON_REDUCE, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% odporności na otrucie")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

					elseif s == 4 then
									affect.add_collect(apply.REFLECT_MELEE, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% szans na odbicie ciosu w cialo")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

							end	

					affect.add_collect_point(POINT_ATTBONUS_HUMAN,15,60*60*24*365*60) --60łâ			
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)

					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
[/spoiler]


Biolog 80lvl
[spoiler]
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("Obrazenia od 10% beda dodane do pz", "Obrazenia od 10% beda dodane do pe")
					if s == 1 then
									affect.add_collect(apply.POINT_KILL_HP_RECOVER, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: Obrazenia od 10% beda dodane do pz")
									say_reward("Otrzymałeś bonus: +50 wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
					elseif s == 2 then
									affect.add_collect(apply.POINT_KILL_SP_RECOVER, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: Obrazenia od 10% beda dodane do pe")
									say_reward("Otrzymałeś bonus: +50 wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
						end	

					affect.add_collect_point(POINT_ATT_GRADE_BONUS,50,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_quest_state("collect_quest_lv85", "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

Biolog 85lvl

Quest collect_quest_lv85  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 85 and pc.level <= 99 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 - Czerwone Konary")
			end

			when button or info begin
					say_title("Analiza Biologa - Czerwone Konary")
					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 Czerwone Konary?")
					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 Czerwone Konary")
					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(30167)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Czerwony Konar")
					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(30167)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Czerwonych Konarow?...")
							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, 50)
					if s == 1 and pc.count_item(30167)==0 then
							pc.give_item2(30167)
					end	
			end



	when 20084.chat."Konary Zelkova" with pc.count_item(30167) >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(30167, 1)
							pc.setqf("duration",get_time()+60*1*15)------------------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 Czerony konar 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 Czerwony Konar 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 - Czerwone Konary")
							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 Czerwone Konary")
					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("")
					say_reward("Otrzymujesz +15% odpornosci na ludzi")
					say_reward("i +20 szybkosci poruszania sie")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")

					affect.add_collect(apply.MOV_SPEED,20,60*60*24*365*60)  
					affect.add_collect(apply.POINT_RESIST_WARRIOR,  15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_ASSASSIN, 15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_SURA,	 15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_SHAMAN,   15, 60*60*24*365*60) --60¦~						
					pc.give_item2(50081)
					pc.give_item2(27006, 100)
					clear_letter()
					set_quest_state("collect_quest_lv90", "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

Biolog 90lvl

quest collect_quest_lv90  begin
	state start begin
			when login or levelup with pc.level >= 90 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")
					end
					send_letter("Analiza Biologa")
			end

			when button or info begin
				say_title("Analiza Biologa")
				say("")
									say("Biolog Chaegirab, uczeń Uriela,")
				say("właśnie Cie szukał. Proszę idz")
				say("do niego i zaoferuj mu swoją pomoc.")
				say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					---												   l
					say("Niebiosa, proszę pomóż mi... ")
					say("Badam wszystkie rodzaje roślin w tym ")
					say("imperium. Jest bardzo dużo rzeczy, ")
					say("które muszą zostać zbadane. Nie mam ")
					say("czasu abym mógł sam wybrać się na wyprawe. ")
					say("Proszę,pomóż mi. ")
					wait()
											say("Biolog Chaegirab:")  
					say("Aktualnie badam Notatki Przywódców.")
					say("Muszę przeprowadzić kilka eksperymentów,")
					say("dlatego potrzebuję kilku egzemplarzy.")
					say("Czy mógłbyś przynieść mi dziesięć Notatek Przywódcy?")
					say("Proszę, pomóż mi! Zawsze przynoś mi po jednym,")
					say("abym miał czas na ich dokladne przebadanie!")
					say("")																																																												  
					set_state(go_to_disciple)
					pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞş®É¶ˇ
					pc.setqf("collect_count",0) -- ˇX¨ú±oąLŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) -- ˇX łÜ°g´bĂÄ¤ôŞş¸Ü 1
			end
	end

	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne")

			end
			when button or info begin
					say_title("Znajdz Notatki Przywódców")
					---												   l
											say("")
											say("Biolog Chaegirab, uczeń Uriela,")
					say("szuka Zębów Orka.")
					say("Zawsze przynoś mu po jednym, aby miał czas")
											say("na ich dokladne przebadanie.")
					say("Notatek szukaj u wszystkich bossów.")
					say("")
					say_item_vnum(30168)
					say_reward("Do tej pory dostarczyłeś ".." "..pc.getqf("collect_count").." Notatki Przywódcy.")
					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(30168)==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(30168) >0   begin
					if get_time() > pc.getqf("duration") then
															say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazleś!")
							say("Pozwól,ze rzuce okiem...")
							say("Jeszcze chwilke.")
							say("")
							pc.remove_item("30168", 1)
							pc.setqf("duration",get_time()+60*60*1) -- oddawanie co 1h
							wait()

							local pass_percent
							if pc.getqf("drink_drug")==0 then
									pass_percent=60
							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!! Ta notatka jest doskonałej jakości!")
											say("Przynieś mi jeszcze ".." "..10-pc.getqf("collect_count").. " notatek przywódcy.")
											say("Prosze, sprobuj je znalezć!")
					say("")
											pc.setqf("drink_drug",0)		 --ĂÄ¤ôŞě©l¤Ć
											return
									end
									say("Biolog Chaegirab:")  
				say("Oh,zebraleś juz wszystkie!")
				say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoją pracę, potrzebuje")	
									say("abyś przyniusł dla mnie jeszcze jeden przedmiot.")
									say("Zrób to dla mnie...")	  
									say("")
									say_item("Kamień Duszy Gyimok ", 30224, "")

									say_reward("Zabijaj Olbrzymi Pustynny Żółw, Królowa Pająków, Wódz Orków")
									say_reward("Dziewięć Ogonów, Zjawa Żółtego Tygrysa, Ezoteryk Przywoływacz")
									say_reward("Król Demonów, Umarły Rozpruwacz, Ognisty Król ")

									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 notatka jest złej jakości!")
							say("Sprobuj przynieść mi inny!")
							say("Proszę, pomóż mi!")
							pc.setqf("drink_drug",0)		 --ĂÄ¤ôŞě©l¤Ć
							return
							end
		else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skończyłem badać ostatniej notakti !")
			  say("Wróc później, kiedy juz skończę!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne!")

					if pc.count_item(30224)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa")
							end
					end

			end
			when button or info begin
					if pc.count_item(30224) >0 then
							say_title("Znalazłeś Kamień Duszy!")
							say("")
							---												   l
							say("Wróć do Biologa, aby")
							say("odnieść mu kamień!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrałeś już wszystkie dziesięć notatek!")
					say("Teraz, Biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)
					say("Możesz go znalezć zabijająć bossy")
					say("")
			end



			when 2191.kill or
					 2091.kill or
					 1304.kill or
					 1091.kill or
					 1093.kill or
					 691.kill or
					 2206.kill or
					 1901.kill  begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224, 1)
							send_letter("Wróc do Biologa!")		
					end	
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazłem Kamien Duszy" with pc.count_item(30224) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazłeś!")
					say("Bardzo Tobie dziękuje!")
					say("W zamian otrzymasz nagrode!")
					say("Idz do mojego mistrza Uriela")
					say("On za pomoc mi podaruje Ci cenna nagrode.")
					say("")
					say_reward("Możesz teraz iść do Baek-Go po nagrodę!")
					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("Odbierz nagrode!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrodę do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a więc Biolog")
					say("wysłał Cie po nagrodę?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")

											local s = select("+300 wartości ataku", "+3000 pz", "+200 obrony magicznej)
					if s == 1 then
									affect.add_collect(apply.ATT_GRADE_BONUS, 300, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +300 wartości ataku")


					elseif s == 2 then
									affect.add_collect(apply.MAX_HP, 300, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +3000 pz")


					 elseif s == 3 then
									affect.add_collect(apply.MAGIC_DEF_GRADE, 200, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +200 obrony magicznej)

						end	




					say_reward("15% na ludzi, 15 szybkosci ataku ")
					say_reward("na zawsze!")

					affect.add_collect(apply.ATT_SPEED,	  15,60*60*24*365*60) --60¦~
					affect.add_collect(apply.ATTBONUS_HUMAN, 15, 60*60*24*365*60)

																			if pc.job==0 then
											pc.give_item2()
											say_reward("")		
									end
									if pc.job==1 then
											pc.give_item2()
												 say_reward("")
															   end
									if pc.job==2 then
											pc.give_item2(11658, 1)
											say_reward("")
									end
									if pc.job==3 then			  
											pc.give_item2()
											say_reward("")
									end  




					clear_letter()
					set_quest_state("collect_quest_lv99", "run")
					set_state(__complete)
			end

	end


	state __giveup__ begin
			when 20084.chat."Poddajesz sie?" begin
					say("Biolog Chaegirab:")
					say("Czy jestes pewien, że chcesz sie poddać!?")
					say("Nie bedziesz mial szansy, aby zacząć ponownie!")
					say("Ta misja Cie opusci...")
		 end
	 end
	state __complete begin
	end
end

Proszę o jak najszybszą edycję!

Dam tygodniowy limit plusów!

dominikczek · 29 Grudnia 2011

poprosze questa na stworzenie gildi nie wiem guild_manage.quest chyba żebym mogl robić gildie od razu po usunięciu jej.

Sunushi · 29 Grudnia 2011

poprosze questa na stworzenie gildi nie wiem guild_manage.quest chyba żebym mogl robić gildie od razu po usunięciu jej.

Usuń wszystko co masz pomiędzy

if game.get_event_flag("guild_disband_delay")*86400 >
get_global_time() - pc.getqf("new_disband_time") then

a

end

włącznie z tym co podałem tutaj w code.

Znajdź też taki ciąg

pc.setqf("new_disband_time",get_global_time())
pc.setqf("new_withdraw_time",get_global_time())

i go usuń.

dominikczek · 29 Grudnia 2011

@up wyedytuj mi go bo ja jak próbuje to wgrywam go i mam guild_manage.quest:140:Abort(core dumped)

quest guild_manage begin
   state start begin
when guild_man1.chat."GM: Ogranicz" or
 guild_man2.chat."GM: Ogranicz" or
 guild_man3.chat."GM: Ogranicz"
 with pc.is_gm() begin
 say("Wpisz nazwe osoby, ktora chcesz ograniczyc!")
 local u_name = input()
 local u_vid=find_pc_by_name(u_name)
 if u_vid==0 then
 say_title("Gracza takiego jak:")
 say_reward(u_name)
 say_title("nie ma!")
 return
 end
 local old_vid = pc.select(u_vid)
 u_withdrawTime=pc.getqf("new_withdraw_time")
 u_disbandTime=pc.getqf("new_disband_time")
 pc.select(old_vid)
 withdrawDelay=game.get_event_flag("guild_withdraw_delay")
 disbandDelay=game.get_event_flag("guild_disband_delay")
 say_title("˝T»{ĄiĄH¦AĄ[¤JŞş¤é´Á")
 if u_withdrawTime>0 then
 say("˛ćÂ÷  ®É¶ˇ: "..time_to_str(u_withdrawTime))
 say("(µĄ«Ý  ®É¶ˇ: "..withdrawDelay.." ¤é)")
 say("")
 end
 if u_disbandTime>0 then
 say("¸Ń´˛ ®É¶ˇ: "..time_to_str(u_disbandTime))
 say("(µĄ«Ý ®É¶ˇ: "..disbandDelay.." ¤é)")
 say("")
 end
 local retryTime1 = u_withdrawTime + withdrawDelay*86400
 local retryTime2 = u_disbandTime + disbandDelay*86400

 local retryTime = 0
 if retryTime1 > retryTime2 then
 retryTime = retryTime1
  else
  retryTime = retryTime2
 end
 local curTime = get_time()
 if curTime < retryTime then
 say("«·sł]©w ®É¶ˇ: "..time_to_str(retryTime))
 say("(łŃ¤U : "..((retryTime-curTime)/3600).."®É¶ˇ)")
 say("")
 if is_test_server() then
  local s=select("«·sł]©w", "Ăöł¬")
  if s==1 then
  local old_vid = pc.select(u_vid)
  local curTime=get_time()
  pc.setqf("new_withdraw_time", curTime-withdrawDelay*86400)
  pc.setqf("new_disband_time", curTime-disbandDelay*86400)
  pc.select(old_vid)
  end
 end
 else
 say("˛{¦bĄiĄHĄ[¤J");
 say("")
 end
end
when  guild_man1.chat."GM: Check" or
 guild_man2.chat."GM: Check" or
 guild_man3.chat."GM: Check"
  with pc.is_gm() begin
 setskin(NOWINDOW)
 chat("Ma gildie: "..bool_to_str(pc.has_guild()))
 chat("Jest mistrzem: "..bool_to_str(pc.isguildmaster()))
 chat("Krolestwo: "..pc.empire)
 chat("Krolestwo NPC: "..npc.empire)
end
when guild_man1.chat.locale.guild.withdraw or
 guild_man2.chat.locale.guild.withdraw or
 guild_man3.chat.locale.guild.withdraw
 with pc.hasguild() and not pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin
 -- ??
 say(locale.guild.withdraw_confirm)
 local s = select(locale.guild.yes, locale.guild.no)
 if s==1 then
 say(locale.guild.withdraw_msg)
 pc.remove_from_guild()
 pc.setqf("new_withdraw_time",get_global_time())
 end
end
when guild_man1.chat.locale.guild.disband or
 guild_man2.chat.locale.guild.disband or
 guild_man3.chat.locale.guild.disband
 with pc.hasguild() and pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin
 -- ??
 say(locale.guild.disband_confirm)
 local s = select(locale.guild.yes, locale.guild.no)
 if s==1 then
 say(locale.guild.disband_msg)
 pc.destroy_guild()
 pc.setqf("new_disband_time",get_global_time())
 pc.setqf("new_withdraw_time",get_global_time())
 end
end
when guild_man1.chat."Stworz Gildie" or
 guild_man2.chat."Stworz Gildie" or
 guild_man3.chat."Stworz Gildie"
 with (pc.is_gm() or npc.empire == pc.empire) begin
 local level_limit;
 local guild_create_item
 if get_locale() == "eng" then
 level_limit = 40
 guild_create_item = false
 else
 level_limit = 30
 guild_create_item = false
 end

 if pc.hasguild() then
 say("Posiadasz juz gildie!")
 return
 end
 if game.get_event_flag("guild_withdraw_delay")*86400 >
 get_global_time() - pc.getqf("new_withdraw_time") then
 say(string.format("Musisz odczekac %d dzien zanim zalozysz gildie!", game.get_event_flag("guild_withdraw_delay")))
 return
 end
 if game.get_event_flag("guild_disband_delay")*86400 >
 get_global_time() - pc.getqf("new_disband_time") then

 say(string.format("§A¤w¸g¸Ń´˛¤˝·¤F! %d ¤ŃĄH¤ş, µLŞk«ŘĄß¨äĄLŞş¤˝·.", game.get_event_flag("guild_disband_delay")))
 return
 end
 say(locale.guild.create_confirm)
 local s = select(locale.guild.yes, locale.guild.no)
 if s == 2 then
 return
 end
 if pc.level >= level_limit then
 if pc.gold >= 200000 then
  if not guild_create_item or pc.countitem(guild_create_item)>0 then
  game.request_make_guild()
  else
  say(locale.guild.no_guild_create_item)
  end
 else
  say(locale.guild.create_not_enough_money)
 end
 else
 say(locale.guild.not_enough_leadership)
 end
end
   end
end

nfsfankp50098 · 29 Grudnia 2011

Witam

Potrzebuje quest

Ten quest ma mnie teleportować na nową mapę za item

Czyli Mapa ma się nazywać Zamek Diabła a kordy na nią to 793600 0

Czyli idę do npc o id 9993 i mówi mi że za item 30186 Mnie przeniesie na nową mapę.

Jestem zielony w pisaniu questów więc proszę o pomoc!

PROSZĘ O SZYBKĄ ODPOWIEDZ QUEST JEST PILNY!!!!!

Weles · 29 Grudnia 2011

Witam.

Potrzebuje pilnie misji która "wabi" wszystkie potwory w okolicy, tak jak peleryna męstwa.

Dziękuję z góry.

dominikczek · 29 Grudnia 2011

Proszę o edycje tego questu żebym mógł robić gildie odrazu po usunięciu bo ten sposób co podał Sunushi nie działa

quest guild_manage begin
   state start begin
when guild_man1.chat."GM: Ogranicz" or
	 guild_man2.chat."GM: Ogranicz" or
	 guild_man3.chat."GM: Ogranicz"
	 with pc.is_gm() begin
	 say("Wpisz nazwe osoby, ktora chcesz ograniczyc!")
	 local u_name = input()
	 local u_vid=find_pc_by_name(u_name)
	 if u_vid==0 then
 say_title("Gracza takiego jak:")
 say_reward(u_name)
 say_title("nie ma!")
 return
	 end
	 local old_vid = pc.select(u_vid)
	 u_withdrawTime=pc.getqf("new_withdraw_time")
	 u_disbandTime=pc.getqf("new_disband_time")
	 pc.select(old_vid)
	 withdrawDelay=game.get_event_flag("guild_withdraw_delay")
	 disbandDelay=game.get_event_flag("guild_disband_delay")
	 say_title("˝T»{ĄiĄH¦AĄ[¤JŞş¤é´Á")
	 if u_withdrawTime>0 then
 say("˛ćÂ÷  ®É¶ˇ: "..time_to_str(u_withdrawTime))
 say("(µĄ«Ý  ®É¶ˇ: "..withdrawDelay.." ¤é)")
 say("")
	 end
	 if u_disbandTime>0 then
 say("¸Ń´˛ ®É¶ˇ: "..time_to_str(u_disbandTime))
 say("(µĄ«Ý ®É¶ˇ: "..disbandDelay.." ¤é)")
 say("")
	 end
	 local retryTime1 = u_withdrawTime + withdrawDelay*86400
	 local retryTime2 = u_disbandTime + disbandDelay*86400
	 local retryTime = 0
	 if retryTime1 > retryTime2 then
 retryTime = retryTime1
	  else
  retryTime = retryTime2
	 end
	 local curTime = get_time()
	 if curTime < retryTime then
 say("«·sł]©w ®É¶ˇ: "..time_to_str(retryTime))
 say("(łŃ¤U : "..((retryTime-curTime)/3600).."®É¶ˇ)")
 say("")
 if is_test_server() then
	  local s=select("«·sł]©w", "Ăöł¬")
	  if s==1 then
  local old_vid = pc.select(u_vid)
  local curTime=get_time()
  pc.setqf("new_withdraw_time", curTime-withdrawDelay*86400)
  pc.setqf("new_disband_time", curTime-disbandDelay*86400)
  pc.select(old_vid)
	  end
 end
	 else
 say("˛{¦bĄiĄHĄ[¤J");
 say("")
	 end
end
when  guild_man1.chat."GM: Check" or
 guild_man2.chat."GM: Check" or
 guild_man3.chat."GM: Check"
	  with pc.is_gm() begin
 setskin(NOWINDOW)
	 chat("Ma gildie: "..bool_to_str(pc.has_guild()))
	 chat("Jest mistrzem: "..bool_to_str(pc.isguildmaster()))
	 chat("Krolestwo: "..pc.empire)
	 chat("Krolestwo NPC: "..npc.empire)
end
when guild_man1.chat.locale.guild.withdraw or
	 guild_man2.chat.locale.guild.withdraw or
	 guild_man3.chat.locale.guild.withdraw
	 with pc.hasguild() and not pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin
	 -- ??
	 say(locale.guild.withdraw_confirm)
	 local s = select(locale.guild.yes, locale.guild.no)
	 if s==1 then
 say(locale.guild.withdraw_msg)
 pc.remove_from_guild()
 pc.setqf("new_withdraw_time",get_global_time())
	 end
end
when guild_man1.chat.locale.guild.disband or
	 guild_man2.chat.locale.guild.disband or
	 guild_man3.chat.locale.guild.disband
	 with pc.hasguild() and pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin
	 -- ??
	 say(locale.guild.disband_confirm)
	 local s = select(locale.guild.yes, locale.guild.no)
	 if s==1 then
 say(locale.guild.disband_msg)
 pc.destroy_guild()
 pc.setqf("new_disband_time",get_global_time())
 pc.setqf("new_withdraw_time",get_global_time())
	 end
end
when guild_man1.chat."Stworz Gildie" or
	 guild_man2.chat."Stworz Gildie" or
	 guild_man3.chat."Stworz Gildie"
	 with (pc.is_gm() or npc.empire == pc.empire) begin
	 local level_limit;
	 local guild_create_item
	 if get_locale() == "eng" then
 level_limit = 40
 guild_create_item = false
	 else
 level_limit = 30
 guild_create_item = false
	 end

	 if pc.hasguild() then
 say("Posiadasz juz gildie!")
 return
 end
	 if game.get_event_flag("guild_withdraw_delay")*86400 >
 get_global_time() - pc.getqf("new_withdraw_time") then
 say(string.format("Musisz odczekac %d dzien zanim zalozysz gildie!", game.get_event_flag("guild_withdraw_delay")))
 return
	 end
	 if game.get_event_flag("guild_disband_delay")*86400 >
 get_global_time() - pc.getqf("new_disband_time") then

 say(string.format("§A¤w¸g¸Ń´˛¤˝·¤F! %d ¤ŃĄH¤ş, µLŞk«ŘĄß¨äĄLŞş¤˝·.", game.get_event_flag("guild_disband_delay")))
 return
	 end
	 say(locale.guild.create_confirm)
	 local s = select(locale.guild.yes, locale.guild.no)
	 if s == 2 then
 return
	 end
	 if pc.level >= level_limit then
 if pc.gold >= 200000 then
	  if not guild_create_item or pc.countitem(guild_create_item)>0 then
  game.request_make_guild()
	  else
  say(locale.guild.no_guild_create_item)
	  end
 else
	  say(locale.guild.create_not_enough_money)
 end
	 else
 say(locale.guild.not_enough_leadership)
	 end
end
   end
end

nfsfankp50098 · 29 Grudnia 2011

Witam

Potrzebuje quest

Ten quest ma mnie teleportować na nową mapę za item

Czyli Mapa ma się nazywać Zamek Diabła a kordy na nią to 793600 0

Czyli idę do npc o id 9993 i mówi mi że za item 30186 Mnie przeniesie na nową mapę.

DAJE + LUB -

PROSZĘ O SZYBKĄ ODPOWIEDZ QUEST JEST PILNY!!!!!

BrendyShot · 29 Grudnia 2011

Witam potrzebowałbym przykład funkcji która wróci mi do wcześniejszego okna say

say ( "Witaj" )

say ( "Wybierz sobię opcję pierścienia teleportacji" )

say ( "" )

wait ( )

local s = select ( "Miasta M1" ,"Grota Wygnańców" , "Czerw.Las" , "Loch pająków V2" , "Anuluj" )

if 1 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc . warp ( 474300 , 954800 )

elseif empire == 2 then

pc . warp ( 63800 , 166400 )

elseif empire == 3 then

pc . warp ( 959900 , 269200 )

end

elseif 2 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 9800 , 1215100 )

elseif empire == 2 then

pc.warp ( 9800 , 1215100 )

elseif empire == 3 then

pc.warp ( 9800 , 1215100 )

end

elseif 3 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 1119900 , 70800 )

elseif empire == 2 then

pc.warp ( 1119900 , 70800 )

elseif empire == 3 then

pc.warp ( 1119900 , 70800 )

end

elseif 4 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 704100 , 464100 )

elseif empire == 2 then

pc.warp ( 704100 , 464100 )

elseif empire == 3 then

pc.warp ( 704100 , 464100 )

end

czyli jak wejdę np. w "Czerw.Las" chcę mieć opcję "wróć" która przeniesie mnie do okna say z ponownym wyborem teleportacji

Pozdrawiam BrendyShot

Bistik · 29 Grudnia 2011

nfsfankp50098, lap:

quest zamek_diabla begin
state start begin
	when login or levelup with pc.level >0 begin
		set_state(zone_enter)
	end
end

state zamek_diabla1 begin
	when 9993.chat."Zamek Diabła" begin
		say("Jestem Teleporterem do Zamku Diabła")
		say("Aby wejść do Zamek Diabła Potrzebujesz:")
		say("")
		say_item("Przepustka", 30186, "")
		wait()
		if pc.get_premium_remain_sec(PREMIUM_EXP) > 0 then
			say("Lecisz do Zamku Diabła")
						say("Trzymaj się mocno.")
			wait()
			pc.warp(793600,0)
			return
		end

		if pc.count_item(30186)>0 then
			say_title("".. pc.get_name() ..".")
			say("Lecisz do Zamku Diabła")
						say("Trzymaj się mocno.")
			say("")
			pc.remove_item(30186)

			char_log(0,"GO_SPIDER2","USE_ITEM(30186)")
		elseif pc.count_item(30186) >0 then
			say_title("".. pc.get_name() ..".")
			say("Lecisz do Zamku Diabła")
						say("Trzymaj się mocno.")
			say("")

			char_log(0,"GO_SPIDER2","USE_ITEM(30186)")
		else
			say_title("".. pc.get_name() ..".")
			say("Potrzebujesz:")
			say_item("Przepustka", 30186, "")
			return
		end

		wait()
		pc.warp(793600, 0)

	end

end

end

To jest przeedytowany quest na teleport do v2 ale powinien zadzialac 1 min roboty :P

nfsfankp50098, lap:

quest zamek_diabla begin
state start begin
	when login or levelup with pc.level >0 begin
		set_state(zone_enter)
	end
end

state zamek_diabla1 begin
	when 9993.chat."Zamek Diabła" begin
		say("Jestem Teleporterem do Zamku Diabła")
		say("Aby wejść do Zamek Diabła Potrzebujesz:")
		say("")
		say_item("Przepustka", 30186, "")
		wait()
		if pc.get_premium_remain_sec(PREMIUM_EXP) > 0 then
			say("Lecisz do Zamku Diabła")
						say("Trzymaj się mocno.")
			wait()
			pc.warp(793600,0)
			return
		end

		if pc.count_item(30186)>0 then
			say_title("".. pc.get_name() ..".")
			say("Lecisz do Zamku Diabła")
						say("Trzymaj się mocno.")
			say("")
			pc.remove_item(30186)

			char_log(0,"GO_SPIDER2","USE_ITEM(30186)")
		elseif pc.count_item(30186) >0 then
			say_title("".. pc.get_name() ..".")
			say("Lecisz do Zamku Diabła")
						say("Trzymaj się mocno.")
			say("")

			char_log(0,"GO_SPIDER2","USE_ITEM(30186)")
		else
			say_title("".. pc.get_name() ..".")
			say("Potrzebujesz:")
			say_item("Przepustka", 30186, "")
			return
		end

		wait()
		pc.warp(793600, 0)

	end

end

end

To jest przeedytowany quest na teleport do v2 ale powinien zadzialac 1 min roboty :P

// Edit:

Witam potrzebuje quest taki jak widzialem na imetin tzn ze jak ma sie dane przedmioty nazwijmy je przedmiot 1 i przedmiot 2 to jak sie z nimi pójdzie do npc np o id 9010 to wymieni sie je na inny przedmiot

teraz napisze to jasniej :

Mamy np perłe niebieska, perle czerwona , perle biała idziemy do npc o id 9010 i tutaj wymieniamy te 3 perły na przedmiot +9 np tarcze ja pisze tak tylko dla przykladu quest powinien bazowac na ziolach ze otwiera sie okno od tworzenia ziol wkladamy tam te 3 przedmioty i wymieniamy zrobiłbym to sam ale nie mam questu od wymiany ziół albo nie znam jego nazwy ;p jezeli nie chce wam sie takiego questa pisac dajcie quest na tworzenie ziol wyedytuje sobie go .

Za pomoc + , - wedle uznania

BrendyShot · 29 Grudnia 2011

// Edit:

Witam potrzebuje quest taki jak widzialem na imetin tzn ze jak ma sie dane przedmioty nazwijmy je przedmiot 1 i przedmiot 2 to jak sie z nimi pójdzie do npc np o id 9010 to wymieni sie je na inny przedmiot

teraz napisze to jasniej :

Mamy np perłe niebieska, perle czerwona , perle biała idziemy do npc o id 9010 i tutaj wymieniamy te 3 perły na przedmiot +9 np tarcze ja pisze tak tylko dla przykladu quest powinien bazowac na ziolach ze otwiera sie okno od tworzenia ziol wkladamy tam te 3 przedmioty i wymieniamy zrobiłbym to sam ale nie mam questu od wymiany ziół albo nie znam jego nazwy ;p jezeli nie chce wam sie takiego questa pisac dajcie quest na tworzenie ziol wyedytuje sobie go .

Za pomoc + , - wedle uznania

quest nazywa się cube.quest

a rzeczy które masz do ulepszenia są w

/usr/home/game/share/locale/germany/cube.txt

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany