Pisanie / Poprawa Questów !

old_kwiatosz · 21 Czerwca 2011

@up

affect.add_collect(apply.POINT_HP,1000,60*60*24*365*60)

NatsuUzumaki · 21 Czerwca 2011

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

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ń Baek-Goa,")

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("To już jest ostatnia misja u mnie..")

say("Proszę o szczególną pomoc w niej.")

say("Twoje zaangażowanie w tej misji")

say("Musi być szczególne.")

say("Szukam Certyfikat Tugyisa")

say("Zadanie bardzo niebezpieczne!")

say("Po tej misji kończy się moja")

say("znajomość z Tobą gdyż wypływam stąd..")

say("")

wait()

say("Biolog Chaegirab:")

say("A więc przejdzmy do rzeczy...")

say("Czy znajdziesz dla mnie trzydzieści Certyfikatów? ")

say("Możesz je znalezć ")

say("w niebespiecznej Krainie Gigantów..")

say("Uważaj na siebie młody wojowniku.")

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

state go_to_disciple begin

when letter begin

send_letter("Zadanie specjalne!")

end

when button or info begin

say_title("Znajdz Certyfikaty Tugyisa")

--- l

say("")

say("Biolog Chaegirab, uczeń Baek-Goa,")

say("szuka Certyfikat Tugyisa.")

say("Zawsze przynoś mu po jednym, aby miał czas")

say("na ich dokładne przebadanie.")

say("Certyfikatów szukaj w Dolonie Gigantów.")

say("")

say_item_vnum(30166)

say_reward("Do tej pory dostarczyłeś ".." "..pc.getqf("collect_count").." Certyfikatów 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 przyniosłeś mi żadnych")

say("Certyfikatów 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 <= 5 and pc.count_item(30166)==0 then

pc.give_item2(30166, 1)

end

when 20084.chat."Certyfikat Tugyisa" with pc.count_item(30166) >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(30166, 1)

pc.setqf("duration",get_time()+60*60*1)--------------1¤pÉ

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")< 29 then --30ÓĄĽşˇ

local index =pc.getqf("collect_count")+1

pc.setqf("collect_count",index) --¨ú±o»ő¦U±oÉ+1

say("Biolog Chaegirab:")

say("Oh!! Ten Certyfikat Tugyisa jest doskonałej jakości!")

say("Jestes wspanialy!")

say("Przynieś mi jeszcze ".." "..30-pc.getqf("collect_count").. " Certyfikatów Tugyisa.")

say("Prosze, sprobuj je znalezć!")

say("")

pc.setqf("drink_drug",0) --ĂÄ¤ôŞěl¤Ć

return

end

say("Biolog Chaegirab:")

say("Znalazłeś już trzydzieści Certyfikatów Tugyisa!!")

say("Dziękuje Ci, że jesteś taki pomocny.")

say("Musisz teraz zdobyc Kamień Duszy Tugyi")

say("Słyszałem, że owy kamien często wypada z")

say("Olbrzymów znajdujących się w Krainie Gigantów ")

say("Zrobisz to dla mnie?")

say("")

say_item("Kamień Duszy Sagyi", 30222, "")

say_reward("Zabijaj Niszczycieli")

say_reward("Wojownik z Toporem")

say_reward("Tysieczny Wojownik")

say_reward("Ogr Wojownik")

say_reward("Ogr Rzeznik")

say_reward("Ogr Szaleniec")

pc.setqf("collect_count",0)

pc.setqf("drink_drug",0)

pc.setqf("duration",0)

set_state(key_item)

return

else

say("Biolog Chaegirab:")

say("Wybacz niestety...")

say("Twój Certyfikat Tugyisa jest zbyt nieczytelny..")

say("Proszę, przynieś mi inny!")

say("Nie zawiedz mnie!")

say("")

pc.setqf("drink_drug",0) --ĂÄ¤ôŞěl¤Ć

return

end

else

say("Biolog Chaegirab:")

say("Jeszcze nie skończyłem badać ostatniego Certyfikatu!")

say("Wróc później, kiedy juz skończę!")

say("")

return

end

state key_item begin

when letter begin

send_letter("Kamień Duszy Tugyi")

if pc.count_item(30225)>0 then

local v = find_npc_by_vnum(20084)

if v != 0 then

target.vid("__TARGET__", v, "Kamień Duszy Tugyi")

end

when button or info begin

if pc.count_item(30225) >0 then

say_title("Wróć do Biologa!")

say("")

--- l

say("Zdobyłeś Kamień Duszy Tugyi! ")

say("Idz szybko przynieś go Biologowi.")

say("")

return

end

say_title("Kamień Duszy Tugyi")

say("")

--- l

say("Zebrałeś juz odpowiednia ilość")

say("Certyfikaty Tugyisa.")

say("Musisz teraz znalezc Kamień Duszy Tugyi")

say_item_vnum(30225)---------- ĆF»îĄŰ

say("Kamień Duszy Sagyi")

say("można zdobyć zabiając Odbrzymy w Krainie Gigantów")

say("Nie zawiedz Biologa!")

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("Kamień Duszy Tugyi")

end

when __TARGET__.target.click or

20084.chat."Kamień Duszy Tugyi" with pc.count_item(30225) > 0 begin

target.delete("__TARGET__")

say("Biolog Chaegirab:")

say("OH!! Zdobyłeś Go! ")

say("Odnalazłeś Kamień Duszy Sagyi")

say("Ciesze się bardzo")

say("Dziękuję Ci za pomoc")

say("W zamian otrzymasz nagrode!")

say("Idz do mojego mistrza Baek-Go")

say("On za pomoc mi podaruje Ci cenną nagrode.")

say("")

pc.remove_item(30225,1)

set_state(__reward)

end

state __reward begin

when letter begin

send_letter("Odbierz nagrode!")

local v = find_npc_by_vnum(20018)

if v != 0 then

target.vid("__TARGET__", v, "Baek-Go")

end

when button or info begin

say_title("Odbierz nagrode!")

--- l

say("Udaj się do Baek-Goa")

say("by otrzymac nagrode za")

say("Twój ciezki trud...")

say("Baek-Go znajduje się w pierwszej wiosce")

say("Masz go na mapie. Spiesz się!")

say("")

end

when __TARGET__.target.click or

20018.chat." Nagroda " begin

target.delete("__TARGET__")

say("Baek-Go:")

say("Drogi przyjacielu")

say("Za Twój cięzki trud otrzymujesz")

say("staly bon do ataku")

say("Od teraz jesteś silniejszy na ludzi o 15 procent")

say("")

say_reward("Otrzymano 140.000.000 yang yang i Punkty Doświadczenia")

say_reward("Otrzymano Broszure Szermierki")

say_reward("Otrzymano silny przeciwko półludziom")

say_reward("Zostal on podniesiony o 15% ")

say_reward("Tego bonusu nikt Ci nie odbierze oraz")

say("")

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

affect.add_collect_point(POINT_ATT_BONUS,15,60*60*24*365*60) --60łâ

if pc.job==0 then

say("Wybierz sobie dodatkową nagrode w postaci")

say("Broni pod Epika..")

local s = select("Bojowy Miecz +8 ", "Partyzana +8")

if 1 == s then

pc.give_item2(148, 1)

say_reward("Otrzymano Bojowy Miecz +8")

elseif 2 == s then

pc.give_item2(3138, 1)

say_reward("Otrzymaano Partyzana +8")

end

if pc.job==1 then

say("Wybierz sobie dodatkową nagrode w postaci")

say("Broni pod Epika..")

local se = select("Smocze Noże +8", "Olbrzymi Luk Zoltego Smoka +8")

if 1 == se then

pc.give_item2(1108, 1)

say_reward("Otrzymano Smocze Noże +8")

elseif 2 == se then

pc.give_item2(2148, 1)

say_reward("Otrzymaano Olbrzymi Luk Zoltego Smoka +8")

end

if pc.job==2 then

say("Wybierz sobie dodatkową nagrode w postaci")

say("Broni pod Epika..")

local sel = select("Miecz Szponu Ducha +8", "Miecz Egzorcysty +8")

if 1 == sel then

pc.give_item2(158, 1)

say_reward("Miecz Szponu Ducha +8")

elseif 2 == sel then

pc.give_item2(248, 1)

say_reward("Otrzymaano Miecz Egzorcysty +8")

end

if pc.job==3 then

say("Wybierz sobie dodatkową nagrode w postaci")

say("Broni pod Epika..")

local sell = select("Wachlarz Zbawienia +8", "Dzwon Burzowego Ptaka +8")

if 1 == sell then

pc.give_item2(7148, 1)

say_reward("Miecz Wachlarz Zbawienia +8")

elseif 2 == sell then

pc.give_item2(5098, 1)

say_reward("Otrzymaano Dzwon Burzowego Ptaka +8")

end

pc.give_item2(70031, 1)

pc.change_money(140000000)

pc.give_exp2(140000000)

clear_letter()

set_state(__complete)

end

state __complete begin

end

po wbiciu 80 lvl nie pokazuje mi się ta misja.

old_kwiatosz · 21 Czerwca 2011

W misji biologa która jest przed tą napisz przed tym:

set_state(__complete)

Coś takiego:

set_quest_state("collect_quest_lv80", "run")

Tak to chyba będzie wyglądać:

clear_letter()
set_quest_state("collect_quest_lv80", "run")
set_state(__complete)

NatsuUzumaki · 21 Czerwca 2011

Mam tak, i nie działa

Ability · 21 Czerwca 2011

NatsuUzumaki; Gdy masz w zadaniu polski znak przy znaku " na końcu lini, wtedy quest nie dziala, np say("Zebrałeś juz odpowiednia ilość")

NatsuUzumaki · 21 Czerwca 2011

Ability zrobiłem tak jak napisałeś dalej nie mam tej misji na postaci 84 lvl

Ability · 21 Czerwca 2011

A zrobiłeś poprzednią misję na 70 poziom?

NatsuUzumaki · 21 Czerwca 2011

Przedtem miałem 84 z zrobiona misja na 70, i nie wbijało mi certwo

Teraz zrobilem nowa psotac oddalem all i misja z certami mi sie pokazała nie ogarniam ale działa

Stelios · 21 Czerwca 2011

@RE

W woli przypomnienia, proszę o licznik na zabijanie mobów, może być to cały quest.

Polegać ma na tym, że od 75lvl w misjach ( gdy klikniemy N na klawiaturze ) pokazuje nam te misje

czyli np:

Misja zabijania psów.
Zabiłeś: 123 Dziki Pies.

Da się coś takiego zrobić czy tylko wsteczne odliczanie? ;P

czyli np:

Misja zabijania psów.
Pozostało: 123 Dziki Pies.

?

;P

A gdy otwiera się list ma się pokazać jakiś tekst

(z tym sobie poradzę, ale proszę o trochę pomocy )

I ten licznik zabitych, albo pozostałych do zabicia mobków

Z góry dziękuję

Ability · 21 Czerwca 2011

Da się zliczać ile potworów zostało zabitych, można to zrobić na przykład tak:

quest zabite_potwory begin
state start begin
	when letter begin
		send_letter("Zabite Potworki")
	end
	when kill begin
		pc.setqf("zabite_potwory", pc.getqf("zabite_potwory")+1)
	end
	when info or button begin
		say("Ilość zabójstw potworów: "..pc.getqf("zabite_potwory"))
	end
end
end

Stelios · 21 Czerwca 2011

@UP +

A żeby jeszcze pokazało w tym liczniku w oknie misji, tam gdzie wszystkie misje pokazuje? ;P

xDeStRuCtx · 21 Czerwca 2011

@UP

quest zabite_potwory begin
       state start begin
               when letter begin
                       send_letter("Zabite Potworki")

               end
               when kill with not npc.is_pc() begin
                       pc.setqf("zabite_potwory", pc.getqf("zabite_potwory")+1))
q.set_counter("Potwory ", pc.getqf("zabite_potwory"))             	end
               when info or button begin
                       say("Ilość zabójstw potworów: "..pc.getqf("zabite_potwory"))
               end
       end
end

Stelios · 22 Czerwca 2011

@Dziękuję xDeStRuCtx +

Ale przy wgrywaniu jest błąd ;/

quest:

quest zabite_potwory begin
	state start begin
			when letter begin
					send_letter("Zabite Potworki")
			end
			when kill with not npc.is_pc() begin
					pc.setqf("zabite_potwory", pc.getqf("zabite_potwory")+1))
q.set_counter("Potwory ", pc.getqf("zabite_potwory"))
			end
			when info or button begin
					say("Ilość zabójstw potworów: "..pc.getqf("zabite_potwory"))
			end
	end
end

a błąd jest taki:

zabite_potwory.quest:9:Abort (core dumped)

Tremendous · 22 Czerwca 2011

Skoro to temat z Questami na zamówienie to mam prośbę...

Jeszcze nie umiem pisać questów ale mam zamiar się uczyć (przyda się do serva)

Tym czasem prosiłbym o przerobienie tego Questa:

quest mounty begin
state start begin
when 71120.use or 71120.chat begin
horse.ride()
pc.mount(20110, 3600)
end
when 71119.use or 71119.chat begin
horse.ride()
pc.mount(20111, 3600)
end
when 71112.use or 71112.chat begin
horse.ride()
pc.mount(20112, 3600)
end
when 71113.use or 71113.chat begin
horse.ride()
pc.mount(20113, 3600)
end
when 71114.use or 71114.chat begin
horse.ride()
pc.mount(20114, 3600)
end
when 71115.use or 71115.chat begin
horse.ride()
pc.mount(20115, 3600)
end
when 71116.use or 71116.chat begin
horse.ride()
pc.mount(20117, 3600)
end
when 71117.use or 71117.chat begin
horse.ride()
pc.mount(20116, 3600)
end
when 71118.use or 71118.chat begin
horse.ride()
pc.mount(20118, 3600)
end
end
end

(oczywiście pod SF2010) Aby postać po padnięciu, wylogowaniu, tp się, nie zsiadała z wierzchowca ...

Bardzo o to proszę chce mieć fajny server dla mnie i dla kumpli a jeżeli się spodoba to dla jeszcze kilku forumowiczów

Jak na razie postać zsiada z mounta a bony zostają

(zakładane pieczęcie)

Z góry thx.

Miczelo · 22 Czerwca 2011

Witam. Chciałbym aby mi ktoś napisał questa na drop sztabek 2kk 5kk i 10kk drop ma byc 5%

LamS · 22 Czerwca 2011

NO plzzz niech napisze ktoś

Zlecenie 1 Quest

Nazwa : Ostatnie Dni

Od 70 LVL i wyżej

NPC - 20023,20016,20011,20018

Zaczyna się od soon'a [20023]

Rozmowa : Dziękuje że zgodziłeś się mi pomóc ostatnimi

dniami kowal jest nie pokaźny za często go nie widuje.

Chyba coś z nim źle. Idź i spytaj się uriela o co chodzi on napewno więcej wie .

Rozmowa : [20011 Uriel ] Witaj pewnie soon cię przysłał

bo martwi się o naszego kowala nie wiem czemu ale .....

Ostatnio przyszedł do mnie kowal i prosił o rzadkie rzeczy

Ciemno-Zielona święta Woda[29015] i 2 Mistyczne Zioło[30036]

Najlepiej zdobądź te przedmioty i zanieś do niego podpowiem ci

że wodę znajdziesz w Demon Tower na 9 piętrze

a mistyczne zioła dostaniesz za darmo od Baek-Go

Rozmowa : [20018] Wiedziałem że przyjdziesz uriel mnie uprzedził

a więc chcesz zioła ostatnio dużo ich mam wiec proszę masz je za darmo

pif paf xDDD riper zabity mamy wode

Rozmowa : [20016] A więc dowiedziałeś się nad czym pracuje to coś dla ciebie

Matrixowa zbroja narazie zaczynam ją tworzyć dla Wojownika i Sury Mężczyzny

i Ninji i Szaman Kobiety [ nie wiem sformułujcie to jakoś ] Brakuje mi świętej wody

i ziół no nic ...............

O widzie że masz te przedmioty czy chciałbyś tę zbroje za te przedmioty ??

Tak , Nie

Tak - odbiera ci przedmioty te 2 i masz zbroje id jej to 222333

Nie - Misja poszła na marne : ]

WIEM DUŻO ROBOTY ALE PROSZE

Sparow · 22 Czerwca 2011

Jesli jest mozliwosc prosze okilka questow

1 )

na podstawie pierscienia teleportacjido itemu;

id 40001 a w nim

-teleport( wszystkie miasta m1)

-magazyn ( z haslem)

- sklad calego Teamu

- wyswietlanie nazwy dostempnego GM-a

-wyjdz

oraz by tego pierscienia nie mozna bylo wyrzucic,sprzedac

2) NPC 20363

- info o serwerze

-kon (otrzymuje sie zwyklego konia na 5 lvl)

-bojowiec ( na 35 lvl)

-militar ( 60 lvl)

- skile na G ( musza byc na M)

-wyjdz

wszystkie te opcje bez oplat

z gory dziekuje

Stelios · 22 Czerwca 2011

NO plzzz niech napisze ktoś

Zlecenie 1 Quest

Nazwa : Ostatnie Dni

Od 70 LVL i wyżej

NPC - 20023,20016,20011,20018

Zaczyna się od soon'a [20023]

Rozmowa : Dziękuje że zgodziłeś się mi pomóc ostatnimi

dniami kowal jest nie pokaźny za często go nie widuje.

Chyba coś z nim źle. Idź i spytaj się uriela o co chodzi on napewno więcej wie .

Rozmowa : [20011 Uriel ] Witaj pewnie soon cię przysłał

bo martwi się o naszego kowala nie wiem czemu ale .....

Ostatnio przyszedł do mnie kowal i prosił o rzadkie rzeczy

Ciemno-Zielona święta Woda[29015] i 2 Mistyczne Zioło[30036]

Najlepiej zdobądź te przedmioty i zanieś do niego podpowiem ci

że wodę znajdziesz w Demon Tower na 9 piętrze

a mistyczne zioła dostaniesz za darmo od Baek-Go

Rozmowa : [20018] Wiedziałem że przyjdziesz uriel mnie uprzedził

a więc chcesz zioła ostatnio dużo ich mam wiec proszę masz je za darmo

pif paf xDDD riper zabity mamy wode

Rozmowa : [20016] A więc dowiedziałeś się nad czym pracuje to coś dla ciebie

Matrixowa zbroja narazie zaczynam ją tworzyć dla Wojownika i Sury Mężczyzny

i Ninji i Szaman Kobiety [ nie wiem sformułujcie to jakoś ] Brakuje mi świętej wody

i ziół no nic ...............

O widzie że masz te przedmioty czy chciałbyś tę zbroje za te przedmioty ??

Tak , Nie

Tak - odbiera ci przedmioty te 2 i masz zbroje id jej to 222333

Nie - Misja poszła na marne : ]

WIEM DUŻO ROBOTY ALE PROSZE

Mogę ci to napisać, ale bez tekstu, tylko say'e na wpisanie tekstu... ;P

@EDIT

Trzymaj, ale nie wiem czy działa, napisałem na szybko... Nie mam jak sprawdzić... ;/

Bez wyboru: "tak, nie"

--------------------------------------
--- Misja by Czarny dla MPCforum
--- Prosze o nie przypisywanie sobie 
--- cudzej pracy! Pozdrawiam
--------------------------------------

quest ostatnie_dni begin
state start begin
	when login or levelup with pc.level() >= 70 begin
		setstate(info)
	end
end

state info begin
when letter begin
send_letter("Ostatnie dni")
	local v = find_npc_by_vnum(20023)
	if v != 0 then
	target.vid("__TARGET__", v, 20023)
	end
when button or info begin
	say("Tekst listu")
	say("")
	say("")
	setstate(idz)
	end
end
when __TARGET__.target.click or 20023.chat."Ostatnie dni" begin
target.delete("__TARGET__")
	say_title(mob_name(20023)..":")
	say("Tekst NPC")
	say("")
	say("")
	say("")
	setstate(info2)
	end
end
state info2 begin
when letter begin
send_letter("URIEL")
	local v = find_npc_by_vnum(20011)
	if v != 0 then
	target.vid("__TARGET2__", v, 20011)
	end
when button or info begin
	say("Tekst listu")
	say("")
	say("")
	setstate(idz2)
	end
end
when __TARGET2__.target.click or 20011.chat."URIEL" begin
target.delete("__TARGET2__")
	say_title(mob_name(20011)..":")
	say("Tekst NPC")
	say("")
	say("")
	say("")
	setstate(info3)
	end
end
state info3 begin
when letter begin
	send_letter("RIP")
	end
	when button or info begin
	say("RIP")
	say("")
	say("")
	say("")
	setstate(zabij)
	end
end
state zabij begin
when 1093.kill begin
if pc.count_item(29015) < 1 then
	pc.give_item2(29015, 1)
end
if pc.count_item == 1 then
when letter begin
send_letter("WODA")
	local v = find_npc_by_vnum(20018)
	if v != 0 then
	target.vid("__TARGET3__", v, 20018)
end
when button or info begin
	say("WODA")
	say("")
	say("")
	say("")
	setstate(idz3)
	end
end
state idz3 begin
	when __TARGET3__.target.click or 20018.chat."cos" begin
		target.delete("__TARGET3__")
		if pc.count_item(29015) == 1 then
		say_title(mob_name(20018)..":")
		say("")
		say("")
		say("")
		pc.give_item2(30036, 2)
		setstate(info4)
		end
	end
state info4 begin
when letter begin
	send_letter("costam")
	local v = find_npc_by_vnum(20016)
	if v != 0 then
	target.vid("__TARGET5__", v, 20016)
end
	when button or info begin
	say("TAEKST")
	say("")
	say("")
	setstate(idz4)
	end
end
when __TARGET5__.target.click or 20016.chat."KOWAL" begin
	if pc.count_item(29015) == 1 
	elseif pc.count_item(30036) == 2 then
	say_title(mob_name(20016)..":")
	say("")
	say("")
	say("")
	pc.removeitem(30036, 2)
	pc.removeitem(29015, 1)
	pc.give_item2(ID, ilosc)
	pc.give_exp2(ilosc)
	pc.changemoney(ilosc)
	setstate(koniec)
	end
end
state koniec begin
end
end

Ajj... Nie zrobiłem opcji "tak, nie"

Już poprawiam...

@EDIT2

Z wyborem: "Tak, Nie"

--------------------------------------
--- Misja by Czarny dla MPCforum
--- Prosze o nie przypisywanie sobie 
--- cudzej pracy! Pozdrawiam
--------------------------------------

quest ostatnie_dni begin
state start begin
	when login or levelup with pc.level() >= 70 begin
		setstate(info)
	end
end

state info begin
when letter begin
send_letter("Ostatnie dni")
	local v = find_npc_by_vnum(20023)
	if v != 0 then
	target.vid("__TARGET__", v, 20023)
	end
when button or info begin
	say("Tekst listu")
	say("")
	say("")
	setstate(idz)
	end
end
when __TARGET__.target.click or 20023.chat."Ostatnie dni" begin
target.delete("__TARGET__")
	say_title(mob_name(20023)..":")
	say("Tekst NPC")
	say("")
	say("")
	say("")
	setstate(info2)
	end
end
state info2 begin
when letter begin
send_letter("URIEL")
	local v = find_npc_by_vnum(20011)
	if v != 0 then
	target.vid("__TARGET2__", v, 20011)
	end
when button or info begin
	say("Tekst listu")
	say("")
	say("")
	setstate(idz2)
	end
end
when __TARGET2__.target.click or 20011.chat."URIEL" begin
target.delete("__TARGET2__")
	say_title(mob_name(20011)..":")
	say("Tekst NPC")
	say("")
	say("")
	say("")
	setstate(info3)
	end
end
state info3 begin
when letter begin
	send_letter("RIP")
	end
	when button or info begin
	say("RIP")
	say("")
	say("")
	say("")
	setstate(zabij)
	end
end
state zabij begin
when 1093.kill begin
if pc.count_item(29015) < 1 then
	pc.give_item2(29015, 1)
end
if pc.count_item == 1 then
when letter begin
send_letter("WODA")
	local v = find_npc_by_vnum(20018)
	if v != 0 then
	target.vid("__TARGET3__", v, 20018)
end
when button or info begin
	say("WODA")
	say("")
	say("")
	say("")
	setstate(idz3)
	end
end
state idz3 begin
	when __TARGET3__.target.click or 20018.chat."cos" begin
		target.delete("__TARGET3__")
		if pc.count_item(29015) == 1 then
		say_title(mob_name(20018)..":")
		say("")
		say("")
		say("")
		pc.give_item2(30036, 2)
		setstate(info4)
		end
	end
state info4 begin
when letter begin
	send_letter("costam")
	local v = find_npc_by_vnum(20016)
	if v != 0 then
	target.vid("__TARGET5__", v, 20016)
end
	when button or info begin
	say("TAEKST")
	say("")
	say("")
	setstate(idz4)
	end
end
when __TARGET5__.target.click or 20016.chat."KOWAL" begin
	if pc.count_item(29015) == 1 
	elseif pc.count_item(30036) == 2 then
	say_title(mob_name(20016)..":")
	say("")
	say("")
	say("")
	local s = select("Tak", "Nie")
		if s == 2 then
		say("Trudno. Twoja strata...")
		say("")
		pc.removeitem(30036, 2)
		pc.removeitem(29015, 1)
                       return
                       setstate(koniec)
		end
	if s == 1 then
		say("")
		say("")
		say("")
	pc.removeitem(30036, 2)
	pc.removeitem(29015, 1)
	pc.give_item2(ID, ilosc)
	pc.give_exp2(ilosc)
	pc.changemoney(ilosc)
	setstate(koniec)
	end
end
state koniec begin
end
end

xaxaxa · 23 Czerwca 2011

95 lvl

Zdobywanie Perel

Na 95 lvl wyskakuje informacja iż teraz możesz wydropic każdy rodzaj perły z potworów.

+ Quest do tego by właśnie od 95 lvla dropiły perły (z małym prawdopodobieństwem)

NlSMO · 23 Czerwca 2011

Możecie przerobić tego questa, żeby zaczynał się od 70 lvl`a i szansa na drop była 15% ?

quest dropsztabki2 begin
state start begin
when kill with not npc.is_pc() begin
local s = math.random(100)
if s >= 1 and s < 6 then
pc.give_item2(80005)
end
end
end
end

z4z0l · 23 Czerwca 2011

@UP

quest dropsztabki2 begin
state start begin
	when kill with not npc.is_pc() and pc.level >= 70 begin
		local szansa = 15
			if math.random(szansa)==1 then
				pc.give_item2(80005, 1)
			end
	end
end
end

Stelios · 23 Czerwca 2011

quest:

quest zabite_potwory begin
	state start begin
			when letter begin
					send_letter("Zabite Potworki")
			end
			when kill with not npc.is_pc() begin
					pc.setqf("zabite_potwory", pc.getqf("zabite_potwory")+1))
q.set_counter("Potwory ", pc.getqf("zabite_potwory"))
			end
			when info or button begin
					say("Ilość zabójstw potworów: "..pc.getqf("zabite_potwory"))
			end
	end
end

a błąd jest taki:

zabite_potwory.quest:9:Abort (core dumped)

@z4z0l pomożesz? ;p

xDeStRuCtx · 23 Czerwca 2011

                                                pc.setqf("zabite_potwory", pc.getqf("zabite_potwory")+1))

nawias za dużo na końcu

Stelios · 23 Czerwca 2011

                                                pc.setqf("zabite_potwory", pc.getqf("zabite_potwory")+1))

nawias za dużo na końcu

Ahaaa! Dziękuję Sprawdzę czy działa, nawet nie zwróciłem na ten nawias uwagi

@EDIT

Działa wyśmienicie

Dziękuję ślicznie

Chrupek97r · 24 Czerwca 2011

Witam ja chcialem przerobic misje od biologa otoz tak Żeby sie oddawalo zeby i ksiegi itd co 2h a nagrody to

Zeby:10 szybkosci ataku,15 szybkosci ruchu zbroja od 34+8,ebonitowa szkatka

Ksiegi:ebony+8 i ebonitowa szkatulka, 40kk

pamiatki:70 defa 2x ebonitowa szkata i bron od 65 +6 na dane postacie woj:nimfa,magnet,ninji,blyski,moreli (czyli te slabsze z ktorych sie nie da robic broni na 80)

MAtowe:100 ataku 3 malzy 5xebonitowe szkaty zbroj 61+7 dla danych postaci(woj-boga,ninja-funkcja...)

konary:50defa,50ataku magiczny metal ikd +5 defa,110kk

certyfikaty : bron od 65+7 ,3x ebonitowa szkata 150kk, 1000pz 4 ever

CZerwone konary:Stalka+8 dla danej postaci i do wyboru 80ataku,1200pz,defa 50, pe 800

I szkaty ebonitowe mogą byc byle jakie

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany