[Quest]Premii cu puncte - versiune modificata

Avatar utilizator
[RaffaeL]
Software Developer

Software Developer
Mesaje: 3223
Membru din: 19 Mar 2016, 12:58
Server: ...
Aprecieri: 15  
Mulţumiri: 2502  
  Rezolvări prob.: 2
Discord: Copiază ID
 Contact:
Medalii

Am gasit aceasta cerere : http://just4metin.ro/arhiva-prob/cum-po ... 72988.html ,insa inainte sa
pot raspunde, subiectul a fost arhivat, asa ca pun aici questul pentru toti cei care vor sa-l folosesca...

Nume: Premii cu puncte
Descriere:Cumperi iteme cu punctele obtinute distrugand pietre metin.
Imagini: Nu am, insa questul este cunoscut
Quest:

Cod: Selectaţi tot

quest puncte_metin begin
	state start begin
		function setMain()
			iteme = {
				{["vnum"] = 50011, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 10},
				{["vnum"] = 50133, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 20},
				{["vnum"] = 38055, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 30},
				{["vnum"] = 50134, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 60},
				{["vnum"] = 71153, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 60},
				{["vnum"] = 41315, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 200},
				{["vnum"] = 41316, ["pctVnum"] = 50901, ["buyCount"] = 1, ["reqPoints"] = 200}
				--se pot adauga oricate iteme se doreste
			}
			lista_iteme = {}

			for i in iteme do
				table.insert(lista_iteme, item_name(iteme[i]["vnum"]))
			end
			table.insert(lista_iteme, "Renunta")
			
			stonesInfo = {
				[8001] = {1,""}, [8002] = {1,""}, [8003] = {1,""},
				[8004] = {1,""}, [8005] = {1,""}, [8006] = {1,""},
				[8007] = {1,""}, [8008] = {1,""}, [8009] = {1,""},
				[8010] = {1,""}, [8011] = {1,""}, [8012] = {1,""},
				[8013] = {1,""}, [8014] = {1,""}, [8024] = {1,""},
				[8025] = {1,""}, [8026] = {1,""}, [8027] = {1,""}
			}
			stonesVnum = {
				8001, 8002, 8003, 8004, 8005, 8006, 8007, 8008, 8009,
				8010, 8011, 8012, 8013, 8014, 8024, 8025, 8026, 8027
			}

			for m in stonesVnum do
				pct = tonumber(iteme[1]["pctVnum"])
				count = stonesInfo[npc.get_race()][1]
				mName = tostring(stonesInfo[npc.get_race()][2])
				mVnum = tostring(stonesVnum[m])
				if mName == "" then mName = tostring(mob_name(mVnum)) end
				if npc.get_race() == stonesVnum[m] then
					pc.give_item2(pct, count)
					chat(string.format("Ai distrus un %q, obtinand astfel %d punct!", tostring(mName), tonumber(count)))
					chat(string.format("In acest moment ai %d puncte.", tonumber(pc.count_item(pct))))
				end
			end
			return iteme, stonesInfo, stonesVnum
		end

		function BuyItemWithPoints()
			say("Premii cu puncte![ENTER]")
			say(string.format("Salut %s, aici poti sa cheltui punctele obtinute", pc.get_name()))
			say("distrugand metinele gasite pe server!")
			say("Fiecare metin iti va da 1 punct.")
			say(string.format("In acest moment ai %d puncte[ENTER]", pc.count_item(tonumber(iteme[1]["pctVnum"]))))
			say("Ce vrei sa faci?[ENTER]")
			if select("Cumpara", "Renunta") == 2 then
				return
			else
				say_size(350,350)
				say("Alege ce obiect doresti:")
				lista = select_table(lista_iteme)
				item = iteme[lista]["vnum"]
				item_schimb = iteme[lista]["pctVnum"]
				reqPoints = iteme[lista]["reqPoints"]
				buyCount = iteme[lista]["buyCount"]
				nr_actual = pc.count_item(item_schimb)
				nr_diff = reqPoints - nr_actual
				say_size(300,350)
				say_title("Premii cu puncte[ENTER]")
				say(string.format("Sigur doresti sa cumperi %d x %q?", tonumber(buyCount), tostring(item_name(item))))
				say_show_item(item)
				say(string.format("Sunt necesare: %d x %q", tonumber(reqPoints), tostring(item_name(item_schimb))))
				say_show_item(item_schimb) say("[ENTER]")
				if (select("Da", "Nu") == 1) then
					if pc.count_item(item_schimb) < reqPoints then
						say("Premii cu puncte[ENTER]")
						say("Pentru a face negotul ai nevoie de:")
						say(string.format("%d x %q", tonumber(reqPoints), tostring(item_name(item_schimb))))
						say_show_item(item_schimb)
						say(string.format("Insa tu ai %d ", tonumber(nr_actual)))
						say(string.format("Revino cand aduni inca %d x %q[ENTER]", tonumber(nr_diff), tostring(item_name(item_schimb))))
						return
					else
						say_title("Premii cu puncte[ENTER]")
						say("Negot finalizat cu succes! Ai primit:[ENTER]")
						say(string.format("%d x %q", tonumber(buyCount), tostring(item_name(item))))
						say_show_item(item)
						say(string.format("si ti-au fost retrase %d puncte.", tonumber(reqPoints)))
						pc.remove_item(item_schimb, reqPoints)
						pc.give_item2(item, buyCount)
						say(string.format("In acest moment ai %d puncte[ENTER]", pc.count_item(tonumber(iteme[1]["pctVnum"]))))
					end
				end
			end
		end

		when kill with not npc.is_pc() begin
			puncte_metin.setMain()
		end

		when 20094.chat."Premii cu puncte!" begin
			puncte_metin.BuyItemWithPoints()
		end
	end
end
Setari quest:

Cod: Selectaţi tot

 "vnum" = itemul oferit la magazin
"pctVnum" = vnum-ul itemului folosit ca punct
La restul se vede denumirea, deci(reqPoints=puncte necesare)...
Pastebin
Tutorial instalare quest:
  • Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest/.lua
  • Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
  • Îl puneţi acolo (să fie .quest sau .lua).
  • Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest (depinde ce server aveţi) apoi ./qc nume_quest.quest/.lua
  • Intraţi pe server şi scrieţi /reload q
  • Testaţi quest-ul.
Pentru acest mesaj, [RaffaeL] a primit 15 (de) mulţumiri
NanOTekZ • inamata001 • idtizu • xIulian95 • cosmyyn1997 • florinf600 • r_tw1x1 • Qpnm12 • magic59 • SandelLupsa • Okami • syserrrrr • DELL07 • green0701 • Sonicsum
Imagine
Imagine
https://www.youtube.com/watch?v=GhYkCIETEto
Do everything, if you know what you're doing, else... Imagine
Ma gasesti si aici: Discord https://discord.gg/5J5GnyZVSR
Afișează semnătura
Avatar utilizator
syserrrrr
Utilizator interzis !

Utilizator interzis !
Mesaje: 326
Membru din: 12 Ian 2014, 00:42
Regat: Chunjo
Aprecieri: 73  
Mulţumiri: 248  
 Contact:
Medalii

Mii de multumiri, maestre!
Avatar utilizator
green0701
Nou Venit

Nou Venit
Mesaje: 3
Membru din: 11 Sep 2020, 19:23
Server: Metin2 TLN
Regat: Chunjo
Aprecieri: 25  
Mulţumiri: 0
Discord: Copiază ID
Medalii

functioneaza ? :D
Răspunde
Răspunsuri
1
Vizualizări
334
Răspunsuri
6
Vizualizări
482
Răspunsuri
4
Vizualizări
567
Răspunsuri
3
Vizualizări
162

Înapoi la “Quest-uri”

  • Informaţie
  • Cine este conectat

    Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 3 vizitatori