Przywołania potworów

[Dargon]

Witam, udostępniam wam mały prosty quest na możliwość przywołania okolicznych potworów, coś jak peleryny męstwa, tyle że questem Nie jestem pewien czy był podobny udostępniany na tym forum, jeśli tak to proszę podać link. Ten quest jest pisany od zera przeze mnie. Niegdyś podobny był na serwerze nevrast, aktualnie takowy widziałem jeszcze na balmorze. Proszę o poszanowanie mojej pracy i nie udostępnianie jej jako swojej. Oto kod:

 

 

--------------------------
-- Quest by Dargon  --
-- http://dargon.y0.pl/ --
--------------------------
quest summon_monsters begin
state start begin
 when letter with pc.getqf("using") == 0 begin
  send_letter("Moc Zwoju Mestwa")
  pc.setqf("call_mobs", 10) -- ilość możliwości przywołania
 end
 when button or info begin
  say_title("Moc Zwoju Męstwa")
  say("Dzięki mocy Zwoju Męstwa przysługuje Ci możliwość ")
  say("przywołania potworów znajdujących się w pobliżu")
  say("Ciebie. Ilość dostępnych przywołań do wykorzystania")
  say("to 10. Po ich wykorzystaniu czeka Cię niespodzianka!")
  say("Pozostało Ci "..pc.getqf("call_mobs").." przywołań!")
  say("")
  local choose = select("Uzyj przywołania", "Anuluj")
  if choose == 1 then
setskin(NOWINDOW)
pc.setqf("call_mobs", pc.getqf("call_mobs")-1)
pc.aggregate_monster()
send_letter("Moc przywoływania")
if pc.getqf("call_mobs") < 1 then
 chat("Wykorzystałeś wszystkie dostępne możliwości przywołania")
 set_state("bonus")
end
  else
return
  end
 end
end
state bonus begin
 when letter begin
  send_letter("Bonus za odwagę ")
 end
 when button or info begin
  say_title("Bonus za odwagę ")
  say("Udało Ci się pomyslnie zużyć wszystkie możliwości")
  say("zwoływania potworów. W ramach tego, otrzymasz")
  say("bonus!")
  say_reward("W nagrodę za wykorzystanie Zwoju Męstwa")
  say_reward("Twój atak zostanie zwiększony o 30 pkt.")
  say_reward("na okres 3 godzin")
  affect.add_collect(apply.ATT_GRADE_BONUS, 30, 60*3) -- okres działania bonusu: 3 godziny
  pc.setqf("using", 1)
  clear_letter()
  set_state("dargon_work")
 end
end
state dargon_work begin
end
end

 

 

tutaj z tabami na wklej

 

http://wklej.to/5o1fZ

 

Do wykorzystania mamy 10 przywołań - po ich skończeniu otrzymamy bonus

 

Enjoy

[King Of Evil]

Ciekawe ;D Ale jak ten ktoś przywoła wszystkie moby i pobiegnie do kółka handlowego w m1 lub m2 i będę tylko ścinać grę ? To co w tedy ?

[Dargon]

Wiesz, nie mam wpływu na dzikie pomysły graczy Ale gdy zwoła wszystkie mooby to wątpię by dobiegł do kółka w m1

[King Of Evil]

Może stać obok kółka i przywoływać . Ale i tak "Lubie To " . Można go z lekka edytować i będzie po kłopocie

[old_kwiatosz]

@up

Jak będzie stał za daleko od mobów to ich nie przywoła, to robi moby "agresywne", gdy jesteś blisko nich.

@topic

Quest bardzo prosty do napisania, ale dostaniesz lajka za 15-30 minut roboty =)

@marcin9994PL

Ale przecież to jest łatwy quest, ta funkcja jest już dawno znana =)

@xDeStRuCtx

No tak, ale mi chodziło, że te say'e tyle zajmują :>

[Dargon]

@up

Jak będzie stał za daleko od mobów to ich nie przywoła, to robi moby "agresywne", gdy jesteś blisko nich.

@topic

Quest bardzo prosty do napisania, ale dostaniesz lajka za 15-30 minut roboty =)

 

to tylko na rozpęd ;p poza tym warunkiem dobrego questa nie jest jego skomplikowanie

[marcin9994PL]

kwiatmix nie zgrywaj kozaka.

[xDeStRuCtx]

15-30 minut roboty, kwiatmix, to chyba Ty masz takie tempo. przecież tu jest max. 5 minut pracy, choć wystarczyłoby napisać:

quest summon_monsters begin
state start begin
 when id.use begin
pc.aggregate_monster()
end
end
end

 

i tyle.

[PanZagłady]

No proszę Destruct i kwiatmix. To czemu jakoś nie widzę waszych prac licznie udostępnionych ? Ty Destruct nawet kilka tematów wymazałeś z swojej treści.

 

Krowa, która dużo muczy mało mleka daje - rozumiecie towarzysze kwiatmix i destruct ?

 

 

 

@ TOPIC

 

Zarąbisty poradnik i quest . Autor to w porzo gościu znający się na pisaniu questów i wielu innych sprawach.

[Pawemol13]

       when kill with not npc.is_pc() begin
       pc.aggregate_monster()
end        

 

To jest dopiero pompa.

[z4z0l]

	when kill with not npc.is_pc() begin
	pc.aggregate_monster()
end		

 

Hahaha Muszę zobaczyć na serwie jak to będzie wyglądało

 

 

To jest dopiero pompa.

 

Co do questa to wiadomo, znane - chociażby to.

quest przywolaj begin
state start begin
when letter begin
send_letter("Przywołaj potwory")
end
when button or info begin
if pc.getqf("blokada") != 1 then
say_blekit("Na start swojej gry, otrzymujesz 30 darmowych")
say_blekit("przywołań potworów.")
say("")
say_red("Pozostało : "..30-pc.getqf("przyw").." przywołań.")
say_yellow("Czy chcesz przywołać potwory ?")
local a = select("Tak", "Nie")
if a == 1 then
pc.setqf("przyw", pc.getqf("przyw")+1)
pc.aggregate_monster()
if pc.getqf("przyw") >= 30 then
pc.setqf("blokada", 1)
end
end
end
end
end
end

[SDeath]

Bardzo przydatny quest, chociaż można by go dodać do jakiegoś itemku, bo tak ciągle klikać na zwoje..

;d

Masakra człowiek sie za męczy

 

@edit: Coś jest nie tak.. nie działa Wszystko gra ;D

 

[Qentinios]

Też kiedyś coś takiego napisałem ^_^ w sumie, to mi się już raczej nie przyda, więc może dam.

quest aggregate_lv begin
state start begin
	when levelup begin
		pc.setqf("aggregate", pc.getqf("aggregate") +pc.get_level())
		end
end
end
quest aggregate begin
state start begin
		when letter begin
		send_letter("Przywołanie potworów! ")
	end
		when button or info begin
		local a=select(
			"Przywołanie",
			"Informacje")
		if 1==a then
			say_bursztyn("Aktualnie posiadasz "..pc.getqf("aggregate").." bonów! ")
			say_trawa("Chciałbyś użyć jednego? ")
			local s=select(
				"Tak, chciałbym!",
				"Jednak się rozmyśliłem..")
			if 1==s then
				if pc.getqf("aggregate") >=1 then
					pc.aggregate_monster()
					pc.setqf("aggregate", pc.getqf("aggregate") -1)
				else
					say_red("Nie masz żadnego bonu!")
				end
			elseif 2==s then
				say_brzoskwinia("I słusznie, lepiej zostawić na później. ")
			end
		elseif 2==a then
			say_brzoskwinia("Na serwerze PanghihinayangMt2 problem pelerynek, ")
			say_brzoskwinia("A także w pewnym sensie problem wczesniejszego  ")
			say_brzoskwinia("Grania postacią ninja, (związanego z tzw lurowaniem) ")
			say_brzoskwinia("Został rozwiązany w całkowicie nowy sposób. ")
			say_brzoskwinia("Gracz wraz z każdym Level Up'em otrzymuje bon  ")
			say_brzoskwinia("Na przywołanie potworów. Liczba otrzymywanych ")
			say_brzoskwinia("Bonów jest zależna od osiągniętego poziomu. ")
			say_brzoskwinia("Jeżeli osiągniesz 100lv dostaniesz 100 bonów, ")
			say_brzoskwinia("20lvl równoznaczny jest z 20 bonami. Jeżeli nie  ")
			say_brzoskwinia("Wykorzystałeś jakiś bonów, to nie tracą się  ")
			say_brzoskwinia("Wraz z Level Up'em, tylko kumulują. Przykład: ")
			say_brzoskwinia("20lvl ma 31 niewykorzystanych bonów. ")
			say_brzoskwinia("Osiąga 21lvl i ma 31+21 czyli 52 bony. ")
		end
	end
end
end

 

 

@z4z0l

dokładnie.

[z4z0l]

@UP

czyli wbijemy 30 poziom to dostajemy dodatkowe 30 'pelerynek' ? Ciekawy pomysł

[Yabuza12]

Ładny quest zrobiony bez błędów, ale średnio przydatny :P

[Dargon]

REF

[mamolek]

Tego questa 2 dni temu wgrali na iMetin . Me Gusta !

[Dargon]

Odświeżam

[Dargon]

Odświeżam

[Dargon]

REF