[QUEST] Energy_system

[Volkihars 6]

Version des Files / Type d’Émulateur : Emulateur 2016 #Saw

Domaine ( Base de Données, Client, Core, Sources... ) : VDI 2016

Niveau : Intermédiaire

 

1. Question :

 

Bonsoir, j'ai une petite question, comment peut t'on recevoir les fragments d'énergie directement dans l'inventaire ?

 

quest energy_system begin
	state start begin
		when alchemist.chat."Une nouvelle technique !" begin
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("J'ai réussi !")
			say("J'ai enfin pu développer une technique")
			say("révolutionnaire.")
			say("Je suis maintenant capable de bricoler des objets")
			say("pour en tirer de l'énergie pure. Je suis un")
			say("génie !")
			wait()
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("En détruisant un objet avec cette technique, on")
			say("obtient des fragments d'énergie. Avec 30")
			say("d'entre eux, on peut reconstituer un cristal")
			say("d'énérgie.")
			say("De l'énergie pure capturée dans une pierre")
			say("précieuse. Cette force se répandra dans tout")
			say("votre équipement. Cela vous intéresse ?")
			wait()
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Apportez-moi des objets que vous trouverez")
			say("cours de vos aventures, comme des armes, des")
			say("bijoux et des vêtements. Je les transformerai en")
			say("fragments d'énérgie. Cette technique va")
			say("influencer l'avenir de notre nation. Nous serons")
			say("invincibles !")
			setstate (can_make)
		end
	end

	state can_make begin
		function setting () 
			return
			{
				["prob_acc_table"] = 
				{
					["35to50"] = {30,55,70,80,90,95,97,98,99,100},
					["51to70"] = {20,40,60,75,85,91,96,98,99,100},
					["upto70"] = {10,25,45,65,80,88,94,97,99,100}
				},
				["item_num_table"] ={0,1,2,3,4,6,8,10,12,15},
				["energy_stone"] = 51001,
				["charging_stone"] = 51002,
			}
		end	
		function getItemNum ( str, r )
			local setting = energy_system.setting()
			for i = 1, 10 do
				if r < setting.prob_acc_table[str][i] then
					return setting.item_num_table[i]
				end
			end
			return 0
		end

		when alchemist.chat."Extraire des fragments d'énergie" begin
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Ça a fonctionné ? Avez-vous obtenu des fragments")
			say("d'énergie ? Apportez-moi plus d'objets et je")
			say("les démonterai à l'aide de l'alchimie. Ma")
			say("technique n'est pas encore tout à fait au point, ")
			say("c'est pourquoi je ne peux pas vous dire")
			say("exactement combien de fragments vous obtiendrez.")
			wait()
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Il y a toutefois une condition : votre niveau")
			say("ainsi que celui de l'objet doivent être")
			say("supérieurs ou égaux à 35.")
			say("Bon, voyons voir...")
			wait()

			if pc.get_level() < 35 then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous n'êtes pas encore assez puissant ! Revenez")
				say("me voir quand vous aurez atteint le niveau 35.")
			else
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Ah, parfait ! Vous êtes fort et expérimenté.")
				say("Donnez-moi l'objet que je dois transformer.")
			end
		end

		when alchemist.take begin
			if pc.get_level() < 35 then 
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous devez être niveau 35 pour fabriquer des")
				say("fragments d'énergie.")
				return
			end

			local item_vnum = item.vnum
			local levelLimit = item.get_level_limit(item_vnum)
			local setting = energy_system.setting()

			if levelLimit == nil then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Je ne peux pas fabriquer de fragments d'énergie")
				say("avec cet objet.")
				wait()
			elseif item.get_type() == ITEM_WEAPON and item.get_sub_type() == WEAPON_ARROW then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Je ne peux pas fabriquer de fragments d'énergie")
				say("avec cet objet.")
				wait()
			elseif levelLimit < 35 then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Je ne peux pas fabriquer de fragments d'énergie")
				say("avec cet objet. J'ai besoin d'équipement de")
				say("niveau 35 ou supérieur.")
			else
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say(item_name(item_vnum))
				say("Voulez-vous utiliser cet objet pour fabriquer des")
				say("fragments d'énergie ?")

				local s = select("Oui, allons-y!", "Non j'ai changé d'avis.")

				if s == 1 then
					item.remove()
					local r = number (1, 100)
					local n

					if levelLimit >= 40 and levelLimit <= 50 then
						n = energy_system.getItemNum ("35to50",r)
					elseif levelLimit > 50 and levelLimit <= 70 then
						n = energy_system.getItemNum ("51to70",r)
					else
						n = energy_system.getItemNum ("upto70",r)
					end
					if (n == 0) then
						---                                                   l
						say_title(""..mob_name(20001).." :")
						say("La fabrication à échoué. Aucun fragments d'énergie")
						say("ont été produit.")
					else
						pc.give_item2(setting.energy_stone, n)
						---                                                   l
						say_title(""..mob_name(20001).." :")
						say("La fabrication à réussi.")
						say(""..n.." fragments d'énergie ont été produits.")
					end
				end
			end
		end

		when alchemist.chat."Fabriquer un cristal d'énergie" begin
			local setting = energy_system.setting()
			local need = 30
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Vous avez déjà épuisé vos réserves d'énérgie ?")
			say("Vous ne devriez pas travailler si dur et risquer")
			say("votre vie inutilement. Pour fabriquer un cristal")
			say("d'énergie, il me faut 30 cristaux d'énergie.")
			wait()
			
			if pc.get_level() < 35 then 
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous n'êtes pas encore assez puissant ! Revenez")
				say("me voir quand vous aurez atteint le niveau 35.")
				return
			end
			
			if pc.count_item (setting.energy_stone) < need then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous n'avez pas encore suffisamment de fragments")
				say("d'énérgie pour fabriquer un cristal. Revenez")
				say("quand vous aurez au moins 30 fragments.")
				return
			else
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous avez apporté 30 fragments d'énergie.")
				say("Juste un instant s'il vous plaît...")
				wait()
			end

			local charge = 100000

			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Tout est prêt pour la fusion.")
			say("Malheureusement, la fusion peut échouer ainsi")
			say("détruire vos matériaux et mes outils.")
			say("Je vous demande donc la somme de 100.000 Yangs.")
			say("Êtes-vous sur de vouloir tenter la fusion ?")

			local s = select ("Oui je veux essayer.", "Non j'ai changé d'avis.")

			if s == 2 then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous avez changé d'avis?")
				say("D'accord, si vous voulez essayer une prochaine fois")
				say("venez me voir.")
				return
			end

			if pc.get_gold() < charge then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Vous n'avez pas assez de Yangs. Je ne peux pas")
				say("vous aider, j'ai besoin d'argent pour vivre.")
				return
			end

			pc.change_gold (-charge)
			pc.remove_item (setting.energy_stone, need)

			if pc.getqf ("hasExperience") == 0 then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Voyons voir...")
				wait()
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Oui, cela a fonctionné !")
				say("Voici un crystal d'énergie !")
				pc.give_item2 (setting.charging_stone, 1)
				pc.setqf ("hasExperience", 1);
				return
			end

			local r = number (1, 100)
			if r > 30 then
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Voyons voir...")
				wait()
				---                                                   l
				say_title(""..mob_name(20001).." :")
				say("Malheureusement cela n'a pas fonctionné je suis")
				say("désolé.")
				return
			end
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Voyons voir...")
			wait()
			---                                                   l
			say_title(""..mob_name(20001).." :")
			say("Oui, cela a fonctionné !")
			say("Voici votre crystal d'énergie !")
			pc.give_item2 (setting.charging_stone, 1)

--			setskin(NOWINDOW)
--			command("cube open")
		end
	end
end

 

 

 

 

J'affirme avoir lu et accepté le règlement de Funky Émulation

Modifié le 21 mars 2019 par Volkihars

[Calypso 7027]

Hello,

 

Toutes les fonctions LUA disponibles ici : 

 

[Volkihars 6]

Merci @Calypso, tout fonctionne comme je veux sujet à lock.