Pisanie / Poprawa Questów !

[Bistik]

Dobra już tak się nie mądruj .. znawco.. nabiłeś chyba Postmakera.. komentowaniem.. postów.. czytałem o Tobie gościu prosił Cie o pomoc to w połowie go olałeś , zamiast się tak wymądrzać byś popisał się i naprawił ten quest..

[Stelios]

Dobra już tak się nie mądruj .. znawco.. nabiłeś chyba Postmakera.. komentowaniem.. postów.. czytałem o Tobie gościu prosił Cie o pomoc to w połowie go olałeś , zamiast się tak wymądrzać byś popisał się i naprawił ten quest..

Trochę szacunku kolego.. Wytykasz coś komuś a sam na siebie nie patrzysz.

Nie pomogę z questem, najpierw szacunek i kultura - wtedy pogadamy.

 

@btw przy dodawaniu spoilera nic się nie może usunąć, chyba, że zrobiłeś to własnoręcznie.

 

@EDIT

Bistik, przeczytaj co napisałem w tym poście.

Napiszę to prościej, bo widzę, że nie rozumiesz..

Szacunek za szacunek, kultura za kulturę.

A twoim przypadku będzie to kultura i szacunek za poprawę questa.

 

Myślisz, że jesteś fajny bo coś tam?

Jak dla mnie ktoś bez szacunku do innych jest nikim.

 

@btw Naucz się pisać sensownie, w jednym zdaniu piszesz kilkukrotnie to samo.

 

@EDIT2

Co do Ciebie.. stelios nie pisz do mnie kolego.. Bo kolego to Ty sobie możesz mówić , pisać do kolegów z piaskownicy , przedszkola a nie do mnie..

Na prawdę mogę tak mówić do kolegów z przedszkola i piaskownicy?

Zadziwia mnie twój tok myślenia kolego.

Nie zabronisz mi pisania kolego do kogoś takiego jak ty.

 

'lajf is brutal, bejb..'

 

[Bistik]

Dobra nie odzywaj się znawco .. za 10 .. gdybyś był choć troszkę mądry poprawił byś te "say" i wgrał do WinSCP a nie udajesz takiego znawce jak Bambusek wielki znawca za 10 a każdy quest wszystko bierze z Elite pvp ..

 

Każdy z was jest tylko mądry w słowach a prawda jest taka że nikt z was.. nie potrafi naprawić prostego questa.. a moderatorzy tylko potrafią dać link do starego postu gdzie linki wygasły i zamknąć temat ..

 

Co do Ciebie.. stelios nie pisz do mnie kolego.. Bo kolego to Ty sobie możesz mówić , pisać do kolegów z piaskownicy , przedszkola a nie do mnie.. Zamiast popisywać się w słowach popisał , wykazał byś się poprawą questu..

[GoGame]

@UP

Bambus3k sam pisze questy, jak byś z nim gadał to byś wiedział

że wie o co chodzi i zawsze pomoże sensownie w sprawie questu -,-

a pewnie dlatego go teraz obrażasz bo pewnie ci na PW nie pomógł

albo powiedział żebyś sobie sam zrobił a nie czekał ...

 

Btw. Dlaczego właśnie on miał Rangę Mentor ? (pytanie retoryczne)

 

Co do Questa :

 

1.brak end w pierwszym when

 

 

quest diamondt begin
state start begin
	when 20031."Wieza Se-Pong" begin
		if pc.get_level() >= 95 then
			say_title("Strażniczka Se-Pong: ")
			say("Chcesz wejść do Wieży Se-Pong? ")
			local a = select("Wejdz", "Anuluj")
			if a == 1 then
				pc.setqf("priv_se_pong", 1)
				d.join(66)
			else
				return
			end
		else
			say("Posiadasz zbyt maly level")
		end
	end
	when login begin
		if pc.get_map_index() == 65 then
			if pc.getqf("priv_se_pong") > 0 then
				pc.setqf("priv_se_pong", 0)
			end
		end
		if pc.get_map_index() == 66 then
			if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
				pc.warp((5376+532)*100, (512+596+4)*100, 65)
			end
			pc.set_warp_location(65, 5376+532, 512+596+4)
		elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
			pc.set_warp_location(65, 5376+532, 512+596+4)
		end
	end
	when login with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		if pc.getqf("priv_se_pong") > 0 then
			pc.setqf("priv_se_pong", 0)
			d.regen_file("data/dungeon/se_pong_regen.txt")
			d.spawn_mob(8032, 195, 690)
		end
	end
	when 8032.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		timer("se_pong", 6)
	end
	when se_pong.timer begin
		d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
		d.regen_file("data/dungeon/se_pong_regen2.txt")
		d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/se_pong_regen3.txt")
	end
	when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.jump_all(special.devil_tower[3][1], special.devil_tower[3][2])
		d.spawn_mob(8033, 372, 631)
	end
	when 8033.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.regen_file("data/dungeon/se_pong_regen4.txt")
	end
	when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.setf("pieczenci", 5)
		d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
		d.regen_file("data/dungeon/se_pong_regen5.txt")
	end
	when 2291.kill with pc.in_dungeon() begin
		pc.give_item2(50084, 1)
	end
	when 20353.take with item.vnum == 50084 begin
		npc.purge()
		item.remove()
		d.setf("pieczenci", d.getf("pieczenci") - 1)
		if d.getf("pieczenci") <= 0 then
			d.clear_regen()
			d.regen_file("data/dungeon/se_pong_regen6.txt")
			d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/se_pong_regen7.txt")
		end
	end
	when 2604.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.clear_regen()
		d.spawn_mob(2501, 617, 676)
		d.jump_all(2048+590, 6656+638)
	end
	when 2501.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.spawn_mob(20074, 617, 676)
		d.regen_file("data/dungeon/se_pong_regen7.txt")
	end
	when 20087.chat."Wyjdz" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say("Chcesz wyjść ")
		local b = select("Wyjdz", "Anuluj")
		if b == 1 then
			timer("wyjdz_se_pong", 12)
		end
	end
	when wyjdz_se_pong.timer begin
		d.exit_all()
	end
end
end

 

Pozwoliłem sobie na usunięcie komentarzy bo do spradzenia były mi zbędne

 

A stelios może pisać co chce i mu nie zabronisz, forum nie jest twoje jak masz jakiś problem to się wyloguj i idź

"prosić o pomoc niemców na EPVP" ... bo jesteś tak niewychowany i chcesz żeby ci wszycy pomagali

życzę powodzenia w normalnym życiu ... :|

[Sunushi]

"Każdy z was jest tylko mądry w słowach a prawda jest taka że nikt z was.. nie potrafi naprawić prostego questa.. a moderatorzy tylko potrafią dać link do starego postu gdzie linki wygasły i zamknąć temat .."

 

Zacznij sam coś tworzyć.

 

btw, daj mi serwer na którym będę mógł sprawdzać questy to będę poprawiał.

[NeverDead]

Senushi i GoGame ja też teraz dodałem ten quest .. niby go wczytuje.. jest fabułka wszystko ładnie pięknie a jak klikam wejdz.. wgl nie przenosi .. ;/ co może być ?

 

 

GoGame-Mateusz odpisz na gg

[Stelios]

Senushi i GoGame ja też teraz dodałem ten quest .. niby go wczytuje.. jest fabułka wszystko ładnie pięknie a jak klikam wejdz.. wgl nie przenosi .. ;/ co może być ?

 

 

GoGame-Mateusz odpisz na gg

d.join(66)

GoGoane, Sunushi a czy czasem przy join nie powinno być jeszcze kordów?

tak się mnie coś wydaje, że tak powinno być

d.join(66, kord_x, kord_y)

[ZnowuJa]

Może mi ktoś napisać quest na tp u npc xxx do mapy yyy i od zzz LVL ?

 

Tylko tak by u npc była opcja od 1lvl, ale tepało od zzz .

[Stelios]

Może mi ktoś napisać quest na tp u npc xxx do mapy yyy i od zzz LVL ?

 

Tylko tak by u npc była opcja od 1lvl, ale tepało od zzz .

quest tp begin
   state start begin
       when xxx.chat."teleport" begin
           if pc.get_level() >= zzz then
               say("tekst")
               say("tekst")
               say("tekst")
               local s = select("tak", "nie")
                   if s == 2 then
                       return
                   end
                   if s == 1 then
                       say("zostaniesz przeniesiony. ")
                       say("")
                       wait()
                       pc.warp(kord_x*100, kord_y*100)
                   end
           else
               say("nie masz odpowiedniego lvl")
           end
       end
   end
end

Nie mam weny do pisania tekstów, więc uzupełnij go jak chcesz.

[Reap]

Witam napisałem tego questa:

 

 

quest stone begin

state start begin

when login or levelup with pc.level >= 50 begin

set_state(info)

end

end

state info begin

when letter begin

local v = find_npc_by_vnum(20016)

if v != 0 then

target.vid("__TARGET__", v, "Kowal")

end

send_letter("bababab")

end

when button or info begin

say_title("blalblba")

say("")

say("bla,")

say("bla!")

say("bla.")

say("bla")

end

when __TARGET__.target.click or

20016.chat."ble" begin

target.delete("__TARGET__")

say_title("Kowal:")

say("No Świetnie!")

say("Ciesze się, że trafiłeś do mnie..")

say("bla.")

say("Jsasa,")

say("sdadsa!")

say_reward("Otrzymano: 1.000.000 Yang")

say_reward("Otrzymano: 500.000 PD")

say_reward("Otrzymano: cos tam")

pc.change_money(1000000)

pc.give_exp2(500000)

pc.give_item2(1139, 2)

clear_letter()

set_state(__THEEND__)

end

end

state __THEEND__ begin

end

end

 

 

 

I teraz pytanie czy coś tu jest źle? Na serwer wrzuciłem to dobrze wrzuciło tak mi się zdaje, ale coś nie widać tego questa w grze, jakby go nie było. Może jednak trzeba tabulatory?

[Jankensztajn]

Napisze mi ktoś questa, że po zabiciu moba "xxx" otrzymujemy przedmiot "yyy".

[BlondynX]

@up2

 

Lepiej dać tabulatory ponieważ jest lepsza estetyka i łatwiej zauważyć głupie błędy.

 

@ co do questa se-pong

- pisany w 20 min

-przy d.join nie trzeba kordów

-nigdy nie daje gotowców, chcesz coś? - to się trochę postaraj !

 

@ co do Bistik

- zaspamował mi gg że niby bambus bierze questy z epvp i na dodatek że mapki kradnie z nevrasta xDD

skoro tak po wszystkich ciśniesz i uważasz nas za spamerów to może pokaż co ty potrafisz ?

 

@2UP

 

quest drop_mob begin

state start begin

when xxx.kill begin

pc.give_item2(yyy, x)

end

end

end

[Reap]

Up mógłbyś mi wytłumaczyć te tabulatory jak je rozstawiać? Bo tylko tego nie rozumiem w pisaniu questów .

[BlondynX]

eh no rozstawiasz je na wyczucie np end pod if,when itd

 

bez tabulatorow quest też zadziała

[Reap]

Myślałem, że jest jakaś zasada . No właśnie bez tabulatorów quest też powinien działać to czemu jak tamten quest wgrałem na serwer i dobrze się wgrał to nic nie było chodziłem do kowala i klikałem i nic :/. W czym może tkwić problem?

[Pon.Lok]

np polski znak przy nawiasie.

 

say("Kocham Cię")

-- źle

say("Kocham Cię ")

-- dobrze

[Stelios]

Witam napisałem tego questa:

 

 

quest stone begin

state start begin

when login or levelup with pc.level >= 50 begin

set_state(info)

end

end

state info begin

when letter begin

local v = find_npc_by_vnum(20016)

if v != 0 then

target.vid("__TARGET__", v, "Kowal")

end

send_letter("bababab")

end

when button or info begin

say_title("blalblba")

say("")

say("bla,")

say("bla!")

say("bla.")

say("bla")

end

when __TARGET__.target.click or

20016.chat."ble" begin

target.delete("__TARGET__")

say_title("Kowal:")

say("No Świetnie!")

say("Ciesze się, że trafiłeś do mnie..")

say("bla.")

say("Jsasa,")

say("sdadsa!")

say_reward("Otrzymano: 1.000.000 Yang")

say_reward("Otrzymano: 500.000 PD")

say_reward("Otrzymano: cos tam")

pc.change_money(1000000)

pc.give_exp2(500000)

pc.give_item2(1139, 2)

clear_letter()

set_state(__THEEND__)

end

end

state __THEEND__ begin

end

end

 

 

 

I teraz pytanie czy coś tu jest źle? Na serwer wrzuciłem to dobrze wrzuciło tak mi się zdaje, ale coś nie widać tego questa w grze, jakby go nie było. Może jednak trzeba tabulatory?

Zadam proste pytanie, bo nie wszyscy tak robią lub zapominają.

Restartowałeś serwer lub /reload quest w grze?

[BlondynX]

np polski znak przy nawiasie.

 

say("Kocham Cię")

-- źle

say("Kocham Cię ")

-- dobrze

 

nie ma różnicy tylko o ile dobrze pamiętam locale germany nie czyta przy " 'ó'

 

co do questa Reap ogólnie ktoś go sprawdzał?

tu masz poprawiony

 

jak nie zadziała to pisz

 

quest stoneczki begin
state start begin
 when login or levelup with pc.level >= 50 begin
  send_letter("bababab")
  set_state(info)
 end
end
state info begin
when button or info begin
say_title("blalblba")
say("")
say("bla,")
say("bla!")
say("bla.")
say("bla")
end
when __TARGET__.target.click or
20016.chat."ble" begin
target.delete("__TARGET__")
say_title("Kowal:")
say("No Świetnie!")
say("Ciesze się, że trafiłeś do mnie..")
say("bla.")
say("Jsasa,")
say("sdadsa!")
say_reward("Otrzymano: 1.000.000 Yang")
say_reward("Otrzymano: 500.000 PD")
say_reward("Otrzymano: cos tam")
pc.change_money(1000000)
pc.give_exp2(500000)
pc.give_item2(1139, 2)
clear_letter()
set_state(__THEEND__)
end
end
state __THEEND__ begin
end
end

[Reap]

Stelios resetowalem i w bsd i w grze i tak nic . Nie jestem taki durny :P. Blondyn zaraz sprawdzę. I dam edit.

 

Edit@ Blondyn quest działa, czyli gdzieś pewnie namieszałem wezmę się do pisania następnego questa. Jak nie będzie działał dam do sprawdzenia.

[kilu]

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!

 

Ref.

Proszę czy mógłby mi ktoś w tym pomóc? Starałem się, ale to nic nie dało ;< Rozumiem nie chce się wam bo sporo roboty ze sprawdzaniem, sam stracilem ze 3-4h przy edycji bo jestem zielony. Będę bardzo wdzięczny za poprawę.

[Reap]

Witam ponownie.

 

Napisałem questa ale coś nie działa. Dam wam do sprawdzenia.

 

 

quest psy begin

when login or levelup with pc.level >= 50 begin

send_letter("bababab")

set_state(info)

end

end

state info begin

when letter or login begin

send_letter("Odszukaj Sebastiana")

local v = find_npc_by_vnum(20016)

if v != 0 then

target.vid("__TARGET__", v, "Sebastian")

end

end

when button or info begin

say_title("Okropni zawadiacy")

say("")

say("Sebastian ma do ciebie bardzo wazna misje,")

say("chcialby zebys go odwiedzil jak najszybciej !")

say("wiec idz do niego i zaoferuj mu swoja pomoc")

say("")

end

when __TARGET__.target.click or 20016.chat."Okropni zawadiacy" begin

target.delete("__TARGET__")

say("Sebastian:")

say("Witaj! Mam dla ciebie poważna misję.")

wait()

say("Silny pustynni zawadiacy")

say("od dluzszego czasu byli niegrozni")

say("ale niestety to juz sie zmienilo")

say("zaczeli pustoszycz nasze biedne , piekne miasto")

say("i osiedlac sie coraz bardziej w glab pustyni")

say("w tobie jedyna nadzieja")

say("Zniszcz ich 100 i wroc do mnie czym predzej")

wait()

say("Nie wzlekaj wsiadz na swojego rumaka")

say("i pedz predzej niz wiatr")

say("niedlugo ich plemie sie rozrosnie")

say("i pograzy nas w swoim cieniu")

say("Wszyscy licza na ciebie.")

say("")

say_reward("Czy chcesz przyjąć te zadanie?")

local s = select("Oczywiscie", "Nie mam ochoty...")

if 1 == s then

say("Nawet nie wiesz jak bardzo sie ciesze!")

say("Dziękuję! Trzymaj się i powodzenia!")

set_state(_ZABIJ_)

else

say("ech... zawidlam sie troche na Tobie")

say("No cóż, więc poproszę kogoś innego.")

say("zegnam...")

set_state(__GIVE_UP__)

end

end

end

state _ZABIJ_ begin

when 101.kill begin

local count = pc.getqf("100") + 1

if count < 100 then

pc.setqf("100", count)

else

 

say_title("Misja Wykonana!")

say("Udało Ci się wykonać Misję!")

say("Wróć do Sebastiana by otrzymać nagrodę!")

say("")

say_title("Informacja")

say_reward("Sebastian znajduje się w Pierwszej Wiosce")

set_state(go_to_sebastian)

end

end

end

state go_to_sebastian begin

when login begin

local v = find_npc_by_vnum(20016)

if v != 0 then

target.vid("__TARGET__", v, "Sebastian")

end

end

when __TARGET__.target.click or

20016.chat."Nagroda" begin

target.delete("__TARGET__")

say_title("Skonczyles Zadanie!")

say("Oto twoja nagroda.")

pc.give_item2(1133, 1)

say_reward("Otrzymales Skrzydla Demona +3")

say_reward("Otrzymujesz 50.000.000 yang")

set_state(__COMPLETE__)

end

end

state __COMPLETE__ begin

end

end

 

 

Jeżeli gdzieś jest błąd proszę o napisanie na czym on polega. Oczywiście za pomoc daje Lubię To lub 5 w profilach.

[Stelios]

Witam ponownie.

 

Napisałem questa ale coś nie działa. Dam wam do sprawdzenia.

 

 

quest psy begin

when login or levelup with pc.level >= 50 begin

send_letter("bababab")

set_state(info)

end

end

state info begin

when letter or login begin

send_letter("Odszukaj Sebastiana")

local v = find_npc_by_vnum(20016)

if v != 0 then

target.vid("__TARGET__", v, "Sebastian")

end

end

when button or info begin

say_title("Okropni zawadiacy")

say("")

say("Sebastian ma do ciebie bardzo wazna misje,")

say("chcialby zebys go odwiedzil jak najszybciej !")

say("wiec idz do niego i zaoferuj mu swoja pomoc")

say("")

end

when __TARGET__.target.click or 20016.chat."Okropni zawadiacy" begin

target.delete("__TARGET__")

say("Sebastian:")

say("Witaj! Mam dla ciebie poważna misję.")

wait()

say("Silny pustynni zawadiacy")

say("od dluzszego czasu byli niegrozni")

say("ale niestety to juz sie zmienilo")

say("zaczeli pustoszycz nasze biedne , piekne miasto")

say("i osiedlac sie coraz bardziej w glab pustyni")

say("w tobie jedyna nadzieja")

say("Zniszcz ich 100 i wroc do mnie czym predzej")

wait()

say("Nie wzlekaj wsiadz na swojego rumaka")

say("i pedz predzej niz wiatr")

say("niedlugo ich plemie sie rozrosnie")

say("i pograzy nas w swoim cieniu")

say("Wszyscy licza na ciebie.")

say("")

say_reward("Czy chcesz przyjąć te zadanie?")

local s = select("Oczywiscie", "Nie mam ochoty...")

if 1 == s then

say("Nawet nie wiesz jak bardzo sie ciesze!")

say("Dziękuję! Trzymaj się i powodzenia!")

set_state(_ZABIJ_)

else

say("ech... zawidlam sie troche na Tobie")

say("No cóż, więc poproszę kogoś innego.")

say("zegnam...")

set_state(__GIVE_UP__)

end

end

end

state _ZABIJ_ begin

when 101.kill begin

local count = pc.getqf("100") + 1

if count < 100 then

pc.setqf("100", count)

else

 

say_title("Misja Wykonana!")

say("Udało Ci się wykonać Misję!")

say("Wróć do Sebastiana by otrzymać nagrodę!")

say("")

say_title("Informacja")

say_reward("Sebastian znajduje się w Pierwszej Wiosce")

set_state(go_to_sebastian)

end

end

end

state go_to_sebastian begin

when login begin

local v = find_npc_by_vnum(20016)

if v != 0 then

target.vid("__TARGET__", v, "Sebastian")

end

end

when __TARGET__.target.click or

20016.chat."Nagroda" begin

target.delete("__TARGET__")

say_title("Skonczyles Zadanie!")

say("Oto twoja nagroda.")

pc.give_item2(1133, 1)

say_reward("Otrzymales Skrzydla Demona +3")

say_reward("Otrzymujesz 50.000.000 yang")

set_state(__COMPLETE__)

end

end

state __COMPLETE__ begin

end

end

 

 

Jeżeli gdzieś jest błąd proszę o napisanie na czym on polega. Oczywiście za pomoc daje Lubię To lub 5 w profilach.

quest psy begin
when login or levelup with pc.level >= 50 begin

A początkowy state?

@btw Już na samym początku zamykasz when i quest a później zaczynasz state,

powinieneś zamknąć when i state którego tam nie masz.

[krzywy_]

Dobra już tak się nie mądruj .. znawco.. nabiłeś chyba Postmakera.. komentowaniem.. postów.. czytałem o Tobie gościu prosił Cie o pomoc to w połowie go olałeś , zamiast się tak wymądrzać byś popisał się i naprawił ten quest..

 

Rozpierdalasz kolego.

[NeverDead]

Witam.

Mam takie pytanie otóż mam quest na banowanie wprost z gry i mam takie pytanie gdzie to sie dodaje w quescie zeby wywalalo po wiadomosci "Gracz zostal zbanowany" mysle ze to w quescie bo np jak mam

local nick=input()wykonaj("php /usr/local/www/apache22/data/ban4ever.php "..nick.."")

 

to to po nicku banuje a teraz jak dodać zeby po zbanowaniu wywalalo myslalem cos nad takim czyms:

command("dc")

i po dc jakos dać zeby z tego czytalo

local nick=input()

Czy to się dodaje w php? macie tutaj mój plik ban4ever.php:

 

<?php

$db = mysql_connect('ip', 'login', 'haslo');
$query = "SELECT `account_id` FROM player.player WHERE `name` = '".$argv[1]."' LIMIT 1";
$idz = mysql_query($query);
$tablica = mysql_fetch_array($idz);
$id = $tablica[0];

$ban = "UPDATE account.account SET `status` = 'BLOCK' WHERE `id` = '$id'";
$go_ban = mysql_query($ban);
?>

 

(Jeżeli bedzie potrzebny quest podesle, zeby dodać do niego cos)

 

Za pomoc daje +++ bo kombinowalem ale nie wychodziło

Z góry dziękuje i pozdrawiam.

[Stelios]

Witam.

Mam takie pytanie otóż mam quest na banowanie wprost z gry i mam takie pytanie gdzie to sie dodaje w quescie zeby wywalalo po wiadomosci "Gracz zostal zbanowany" mysle ze to w quescie bo np jak mam

local nick=input()wykonaj("php /usr/local/www/apache22/data/ban4ever.php "..nick.."")

 

to to po nicku banuje a teraz jak dodać zeby po zbanowaniu wywalalo myslalem cos nad takim czyms:

command("dc")

i po dc jakos dać zeby z tego czytalo

local nick=input()

Czy to się dodaje w php? macie tutaj mój plik ban4ever.php:

 

<?php

$db = mysql_connect('ip', 'login', 'haslo');
$query = "SELECT `account_id` FROM player.player WHERE `name` = '".$argv[1]."' LIMIT 1";
$idz = mysql_query($query);
$tablica = mysql_fetch_array($idz);
$id = $tablica[0];

$ban = "UPDATE account.account SET `status` = 'BLOCK' WHERE `id` = '$id'";
$go_ban = mysql_query($ban);
?>

 

(Jeżeli bedzie potrzebny quest podesle, zeby dodać do niego cos)

 

Za pomoc daje +++ bo kombinowalem ale nie wychodziło

Z góry dziękuje i pozdrawiam.

Jeśli chcesz żeby było info na chacie:

notice_all("Gracz "..nick.." został zbanowany! ")

Jak chcesz żeby wywalało gracza po zbanowaniu go:

command("dc "..nick)