Pisanie / Poprawa Questów !

JonyNawa1ony · 16 Lipca 2012

Jak nie zadziała, to daj znać jaki masz problem.

Dokładnie, na jakim etapie.

Xyli · 17 Lipca 2012

Quest

quest warehouse begin
state start begin
	when 9005.click begin

		local magazyn = game.get_safebox_level()

		if magazyn == 0 then
			say_title("Dozorca:")
			say("Witaj! Zajmuję się pilnowaniem i sprzedażą magazynów")
			say("dla ludzi takich jak Ty. Zajmuję się również")
			say("odbiorem Twoich przedmiotów z Item-Shop, jak i")
			say("sprzedaję sztabki. Jeżeli chcesz to mogę założyć")
			say("dla Ciebie Twój własny prywatny magazyn.")

			if pc.gold < 500 then
				say("")
				say("Żeby założyć magazyn potrzebujesz 500 Yang.")
				say("Patrząc po Tobie to nie masz takiej sumy Yang.")
				say("Wróć do mnie jak zdobędziesz tę sumę.")
			else
				say("")
				say("Chcesz założyć Magazyn?")

				local a = select("Tak, chcę.", "Zastanowię się...")

				if a == 1 then
					pc.changegold(-500)
					game.set_safebox_level(1)
					say_title("Dozorca:")
					say("Wyznaczyłem już miejsce na Twój Magazyn.")
					say("")
					say("Hasło do Twojego Magazynu to 000000")
				else
					say_title("Dozorca:")
					say("Jak już się zdecydujesz na swój własny Magazyn")
					say("to wiesz gdzie mnie szukać.")
				end
			end
		end

		if magazyn >= 1 then
			if pc.getqf("open_count") < 3 then
				say_title("Dozorca:")
				say("Pamiętaj, żeby nikomu nie dawać hasła do Magazynu.")
				pc.setqf("open_count",pc.getqf("open_count")+1)
			else
				say_title("Dozorca:")
				say("Witaj, "..pc.name..".")
			end

			local b = select("Otwórz Magazyn", "Kup sztabki", "Otwórz Item-Shop", "Wyjdź")

				if b == 1 then
					game.open_safebox()
				elseif b == 2 then
					npc.open_shop()
					q.done()
				elseif b == 3 then
					game.open_mall()
				end
		end
	end
end
end

Co w tym queście jest źle? W grze jak klikam na dozorcę to nic się nie dzieje.

Aquilius · 17 Lipca 2012

@Xyli - Po pierwsze, w twoim queście są polskie znaki przy znaku ", a to powoduje nie wyświetlanie się zadania w grze. Po drugie, gdy stawiasz warunek, w tym przypadku

if magazyn == 0 then

to nie zamykaj go, gdy chcesz go jeszcze użyć, to jest:

if magazyn >= 1 then

- tutaj lepiej zrobić to w sposób:

elseif magazyn >= 1 then

i do piero dać end

Oto poprawiona wersja: http://wklej.to/oeoyy

Atzeen · 17 Lipca 2012

wystarczy dać zamiast jakiegoś elsif magazyn blablabla else....

LIR0Y · 17 Lipca 2012

Napisałem dungeona od początku.Wgrywa się dobrze ,ale przy rozmowie z NPC daje "Przenieś Nas" i nic sie nie dzieje.

HELP !!

http://wklej.to/F9xx3

Sunushi · 17 Lipca 2012

Napisałem dungeona od początku.Wgrywa się dobrze ,ale przy rozmowie z NPC daje "Przenieś Nas" i nic sie nie dzieje.

HELP !!

http://wklej.to/F9xx3

http://www.mpcforum.pl/topic/675548-quest-wymiar-metina-dungeon/

Błąd pewnie leży w qf

Atzeen · 17 Lipca 2012

when login with pc.in_dungeon() and pc.getqf("p1") begin
				    if pc.getqf("p1") > 0 then

nice.

TheKamilPolska · 17 Lipca 2012

Prosze o quest Wymiem kase taki jaki jest na PvpmT2 tylko zamiast 1kkk to 500kk

DarkAlbatros · 17 Lipca 2012

Proszę o naprawe tego questa ! Wyskakuje mi unexpected symbol near 'when'

quest metinns_ves begin

state start begin

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

set_state(info)

end

state info begin

when letter begin

local v = find_npc_by_vnum(20023)

if v != 0 then

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

end

send_letter("Pomoc dla Soon")

when button or info begin

say_title("Soon cie potrzebuje ! Idz do niego !")

say("Soon ma problem !")

say("Idz mu z pomoca !")

say_reward("Porozmawiaj z Soon !")

end

when __TARGET__.target.click or

20023.chat."Metiny !" begin

target.delete("__TARGET__")

say_title("Kamienie Metin")

say("Musisz mi pomoc")

say("Ostatnio duzo kamieni")

say("metin spadało na ta ziemie.")

say("Dlatego musisz pokonac klika z nich !")

say_title("Pokonaj wszystkie metiny wokol M1 : Metiny 5-20 LvL oraz Nowe Metiny")

say_title("oraz przynies na dowod pokonania - Biale Flagi !")

set_state(Zadanie)

end

state Zadanie begin

when letter begin

send_letter("Zniszcz je!")

end

when button or info begin

say("Znisz 4 kamienie metin: : Metin Chunjo,Metin Jinno,Metin Shinso i kamien imperialny ")

end

when 8001.kill with pc.countitem(70008)==0 begin

when 8002.kill with pc.countitem(70008)==0 begin

when 8003.kill with pc.countitem(70008)==0 begin

when 8004.kill with pc.countitem(70008)==0 begin

when 8028.kill with pc.countitem(70008)==0 begin

when 8029.kill with pc.countitem(70008)==0 begin

when 8030.kill with pc.countitem(70008)==0 begin

when 8031.kill with pc.countitem(70008)==0 begin

when 8032.kill with pc.countitem(70008)==0 begin

local random = math.random(3)

if random == 1 then

pc.give_item2(70008, 1)

say("Gratulacje zdobyles Biale Flagi !")

say("Idz i zaniesc je Soon !")

local v = find_npc_by_vnum(20023)

if v != 0 then

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

end

when 20023.chat."Metiny" with pc.countitem(70008)>0 begin

target.delete("__TARGET__")

say_title("Udalo ci sie!")

say("I masz Biale Flagi ! Oto twoja nagroda ! :")

say_reward("Dostales kilka przydatnych rzeczy (-: ")

pc.remove_item(70021, 4)

elseif pc.get_job() == 0 then

local s = select("1 Reka", "2 Reka")

elseif v == 1 then

pc.give_item2(859, 1)

set_state(__COMPLETE__)

end

elseif s == 2 then

pc.give_item2(869, 1)

set_state(__COMPLETE__)

end

elseif pc.get_job() == 1 then

local s = select("Sztylety", "Luk")

elseif v == 1 then

pc.give_item2(919, 1)

set_state(__COMPLETE__)

end

elseif s == 2 then

pc.give_item2(8049, 1)

set_state(__COMPLETE__)

end

elseif pc.get_job() == 2 then

pc.give_item2(8099, 1)

set_state(__COMPLETE__)

end

elseif pc.get_job() == 3 then

local s = select("Wachlarz", "Dzwon")

elseif v == 1 then

pc.give_item2(609, 1)

set_state(__COMPLETE__)

end

elseif s == 2 then

pc.give_item2(5359, 1)

set_state(__COMPLETE__)

end

Quest zombie ( Wszystko się niby wgrywa, lecz nie pokazuje questa w grze :/ )

quest zombie begin

state start begin

when login or levelup with pc.get_level > 100 begin

set_state(zombie)

end

state zombie begin

when button or info begin

say_title("Zombie")

say("Niektore Zombie zaczynaja wpadac w furie !")

say("Musisz zniszczyn 50 Zombie_diseased_boss ! ")

say("Zombie znajdziesz w Zombie-Land.")

say("Otrzymasz za to nagrode !")

end

when 2507.kill begin

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

if count < 50 then

pc.setqf("1", count)

if count == 50 then

say_title("Zniszczyles 50 Zombie !")

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

say_reward("Otrzymano: Perly i Dwie Broszury !")

pc.give_item2( 27992 )

pc.give_item2( 27993 )

pc.give_item2( 27994 )

pc.give_item2( 70031 )

end

state __COMPLETE__ begin

end

LIR0Y · 17 Lipca 2012

Kurde !Napisałem znowu dungeona i jak daje "Wejdz" to nic sie nie dzieje !!

Prosze was o pomoc

Quest:http://wklej.to/iDbQZ

TheKamilPolska · 17 Lipca 2012

proszę o poprawanie questu

uest move_ring begin

state start begin

when 80009.use begin

say_title ( "Pierscien Teleportacji:" )

say (pc.get_name().. " Mogę Cię przenieść do :" )

say ( "" )

local s = select ( "Shinsoo M1" , "Shinsoo M2" , "Jinnio M1" , "Jinnio M2" , "Chunjo M1" , "Chunjo M2" , "Dolina Seungryong" , "Pustynia Yongbi" , "Dalej" )

if s == 1 then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do miasta Shinsoo...")

wait ()

pc.warp ( 474300 , 954800 )

elseif 2 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do miasteczka Shinsoo...")

wait ()

pc.warp ( 353100 , 882900 )

elseif 3 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do miasta Jinnio...")

wait ()

pc.warp ( 959900 , 269200 )

elseif 4 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do miasteczka Jinnio...")

wait ()

pc.warp ( 145500 , 240000 )

elseif 5 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do miasta Chunjo...")

wait ()

pc.warp ( 63800 , 166400 )

elseif 6 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do miasteczka Chunjo...")

wait ()

pc.warp ( 145500 , 240000 )

elseif 7 == s then

say title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Doliny Seungryong...")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 402100 , 673900 )

elseif empire == 2 then

pc.warp ( 270400 , 739900 )

elseif empire == 3 then

pc.warp ( 321300 , 808000 )

end

elseif 8 == s then

say title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony na Pustynię Yongbi...")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 217800 , 627200 )

elseif empire == 2 then

pc.warp ( 221900 , 502700 )

elseif empire == 3 then

pc.warp ( 344000 , 502500 )

end

elseif s == 9 then

local s = select ( "Góra Sohan" , "Loch Pająków v1" , "Loch Pająków v2" , "Ognista Ziema" , "Czerwony Las" , "Wieża Demonów" , "Kraina Gigantów" , "Grota Wygnańców v1" , "Grota Wygnańców v2" , "Anuluj" )

if s == 1 then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony na Górę Sohan...")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 434200 , 290600 )

elseif empire == 2 then

pc.warp ( 375200 , 174900 )

elseif empire == 3 then

pc.warp ( 491800 , 173600 )

end

elseif 2 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Lochu Pająków v1...")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 60000 , 496000 )

elseif empire == 2 then

pc.warp ( 60000 , 496000 )

elseif empire == 3 then

pc.warp ( 60000 , 496000 )

end

elseif 3 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Lochu Pająków v2...")

wait ()

pc.warp ( 704100 , 464100 )

elseif 4 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony na Ognistą Ziemię...")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 599400 , 756300 )

elseif empire == 2 then

pc.warp ( 597800 , 622200 )

elseif empire == 3 then

pc.warp ( 730700 , 689800 )

end

elseif 5 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Czerwonego Lasu...")

wait ()

pc.warp ( 1119900 , 70800 )

elseif 6 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony pod Wieżę Demonów...")

wait ()

pc.warp ( 590500 , 110500 )

elseif 7 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Krainy Gigantów...")

wait ()

pc.warp ( 845100 , 745900 )

elseif 8 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Groty Wygnańców v1...")

wait ()

pc.warp ( 9800 , 1215100 )

elseif 9 == s then

say_title ( pc.get_name().."!")

say ("Zostaniesz przeniesiony do Groty Wygnańców v2...")

wait ()

pc.warp ( 135200 , 1215100 )

elseif 10 == s then

return

end

elseif 7 == s then

say_title ( "Cześć" )

say ( "Czy chcesz wbić wszystkie skille na P??" )

local s = select ( "Tak" , "Nie" )

if 2 == s then

say ("Nie To Nie Łaski Bez ")

return

end

say ( "Otrzymałeś Wszystkie Skille P" )

if pc . get_job() == 0 and pc . get_skill_group()==1 then

pc . set_skill_level (1, 59)

pc . set_skill_level (2, 59)

pc . set_skill_level (3, 59)

pc . set_skill_level (4, 59)

pc . set_skill_level (5, 59)

pc . set_skill_level (6, 59)

elseif pc . get_job()==0 and pc . get_skill_group()==2 then

pc . set_skill_level (16, 59)

pc . set_skill_level (17, 59)

pc . set_skill_level (18, 59)

pc . set_skill_level (19, 59)

pc . set_skill_level (20, 59)

pc . set_skill_level (21, 59)

elseif pc . get_job()==1 and pc . get_skill_group()==1 then

pc.set_skill_level(31, 59)

pc.set_skill_level(32, 59)

pc.set_skill_level(33, 59)

pc.set_skill_level(34, 59)

pc.set_skill_level(35, 59)

pc.set_skill_level(36, 59)

elseif pc . get_job()==1 and pc . get_skill_group()==2 then

pc.set_skill_level(46, 59)

pc.set_skill_level(47, 59)

pc.set_skill_level(48, 59)

pc.set_skill_level(49, 59)

pc.set_skill_level(50, 59)

pc.set_skill_level(51, 59)

elseif pc . get_job()==2 and pc . get_skill_group()==1 then

pc.set_skill_level(61, 59)

pc.set_skill_level(62, 59)

pc.set_skill_level(63, 59)

pc.set_skill_level(64, 59)

pc.set_skill_level(65, 59)

pc.set_skill_level(66, 59)

elseif pc . get_job()==2 and pc . get_skill_group()==2 then

pc.set_skill_level(76, 59)

pc.set_skill_level(77, 59)

pc.set_skill_level(78, 59)

pc.set_skill_level(79, 59)

pc.set_skill_level(80, 59)

pc.set_skill_level(81, 59)

elseif pc . get_job()==3 and pc . get_skill_group()==1 then

pc.set_skill_level(91, 59)

pc.set_skill_level(92, 59)

pc.set_skill_level(93, 59)

pc.set_skill_level(94, 59)

pc.set_skill_level(95, 59)

pc.set_skill_level(96, 59)

elseif pc . get_job()==3 and pc . get_skill_group()==2 then

pc.set_skill_level(106, 59)

pc.set_skill_level(107, 59)

pc.set_skill_level(108, 59)

pc.set_skill_level(109, 59)

pc.set_skill_level(110, 59)

pc.set_skill_level(111, 59)

end

istny · 17 Lipca 2012

Kurde !Napisałem znowu dungeona i jak daje "Wejdz" to nic sie nie dzieje !!

Prosze was o pomoc

Quest:http://wklej.to/iDbQZ

A normalnie możesz się tpnąć na tą mapę ?

z4z0l · 17 Lipca 2012

LIROY

ja nie wiem czy to sam pisałeś ale jeśli tak to jesteś zajebisty ...

say("Wybacz, musisz mieć ze sobą "..2.." osób w grupie.")

wszystkie lokalne uzupełniłeś ?

LIR0Y · 17 Lipca 2012

Tak ,mogę.Pisałem ,ale z pomocą innych dungeonów.

Tak uzupełniłem all.

DarkAlbatros · 17 Lipca 2012

Mógłbym dostać poprawe ?

z4z0l · 17 Lipca 2012

@up

http://wklej.to/apkAU

http://wklej.to/ubPcM

powinny działać, w razie czego to pisz co jest nie tak. polecam stosować tabulatory.

pejwong · 17 Lipca 2012

Czy jest możliwość dodania w queście kotwicy ?

Sunushi · 17 Lipca 2012

Czy jest możliwość dodania w queście kotwicy ?

Może opiszesz na czym polega ta kotwica?

z4z0l · 17 Lipca 2012

kotwica zazwyczaj używana była w HTML. nieraz w językach programowania można spotkać się z określeniem 'goto'.

http://webmade.org/porady/kotwice-html.php

Sunushi · 17 Lipca 2012

kotwica zazwyczaj używana była w HTML. nieraz w językach programowania można spotkać się z określeniem 'goto'.
http://webmade.org/porady/kotwice-html.php

No czyli coś jak w questach state jak dobrze mniemam

z4z0l · 17 Lipca 2012

myślę że można to tak nazwać, lepiej byłoby gdyby rzucił przykładem

pejwong · 18 Lipca 2012

Przykład kotwicy w Pascal'u

program palidromy;
uses crt;
var
  t,plik:text;
  linia:array[1..250] of string;
  i,j,k,n:integer;
  tekst:string;
LABEL stop;
begin
clrscr;
n:=0;
assign(t, 'D:\dane.txt');
assign(plik, 'D:\plik.txt');
rewrite(plik);
reset(t);
i:=1;
repeat
  readln(t,tekst);
  j:=1;
  k:=length(tekst);
  while j<k do
  begin
	 if tekst[j] <> tekst[k] then goto stop;
	 j:=j+1;
	 k:=k-1
  end;
  writeln(tekst);
  writeln(plik,tekst);
  n:=n+1;
  stop:
  i:=i+1;
until i>999;
writeln('');
writeln('Jest ', n, ' palindromow');
readkey
end.

Kotwica nazywa się "stop".

Przykład jakby miało to wyglądać w lua:

			(...)
			start:
			say("Powtórzyć? ")
			local s = select("Tak ", "Nie")
			if s == 2 then
					return
			end
			if s == 1 then
					goto start
			end
			(...)

Qadam · 18 Lipca 2012

Prosze o napisanie questa ktory na poczatek daje wiadomosc powitalna : Server AnxiaMT2 Wita garcza (nick gracza), najlepszy server PvP hamachi !!!

I na start dostaje 5lv , eq na 1lv +9(w zaleznosci jaka klasa), 3 reke na 3lata, buty wiatru + i pierscien teleporatci.I jeszcze prosze napisac gdzie mam to wrzucic ;]

Za pomoc daje lajka i 5 w profilu ;]

Sunushi · 18 Lipca 2012

Przykład kotwicy w Pascal'u

program palidromy;
uses crt;
var
  t,plik:text;
  linia:array[1..250] of string;
  i,j,k,n:integer;
  tekst:string;
LABEL stop;
begin
clrscr;
n:=0;
assign(t, 'D:\dane.txt');
assign(plik, 'D:\plik.txt');
rewrite(plik);
reset(t);
i:=1;
repeat
  readln(t,tekst);
  j:=1;
  k:=length(tekst);
  while j<k do
  begin
	 if tekst[j] <> tekst[k] then goto stop;
	 j:=j+1;
	 k:=k-1
  end;
  writeln(tekst);
  writeln(plik,tekst);
  n:=n+1;
  stop:
  i:=i+1;
until i>999;
writeln('');
writeln('Jest ', n, ' palindromow');
readkey
end.

Kotwica nazywa się "stop".

Przykład jakby miało to wyglądać w lua:

			(...)
			start:
			say("Powtórzyć? ")
			local s = select("Tak ", "Nie")
			if s == 2 then
					return
			end
			if s == 1 then
					goto start
			end
			(...)

Spróbuj tak:

		    (...)
		    repeat
				    say("Powtórzyć? ")
				    local s = select("Tak ", "Nie")
				    if s == 2 then
						    return
				    end
		    until s != 2
		    (...)

pejwong · 18 Lipca 2012

Spróbuj tak:

			(...)
			repeat
					say("Powtórzyć? ")
					local s = select("Tak ", "Nie")
					if s == 2 then
							return
					end
			until s != 2
			(...)

Pętla to rozwiązanie alternatywne. jak narazie poszukuję info co do kotwic o ile w ogóle da się zrobić to w lua.

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany