Cod: Selectaţi tot

Apr 11 20:01:31 :: SuralauL: USE_ITEM Pergament Reset Skill (inven 1, cell: 22)
Apr 11 20:01:33 :: QUEST ScriptAnswer pid 2964 answer 0
Apr 11 20:01:34 :: QUEST ScriptAnswer pid 2964 answer 0
Apr 11 20:01:34 :: QUEST remove a item vnum 71002 of SuralauL[2964]

Cod: Selectaţi tot

quest reset_scroll begin
    state start begin	
		when 71002.use begin
			if pc.get_level() < 30 then
				say_title("Pergament Reset Skill:")
				say("")
				say("Poþi folosi acest pergament doar de la nivelul 30.")
				say("")
				return
			end

			if pc.get_skill_group() == 0 then
				say_title("Pergament Reset Skill:")
				say("")
				say("Nu ai nici o competenþã.")
				say("")
				return
			end

            		say_title("Pergament Reset Skill:")
			say("")
            		say("Gândeºte-te bine înainte sã faci asta!")
            		say("Cu acest pergament vei reseta toate competenþele.")
			say("" )
           		say("Eºti sigur cã vrei acest lucru?")
			say("" )			
           		local s = select("Da", "Nu")
			if 2 == s then 
				return
			end
			say_title("Pergament Reset Skill:")
			say("")
			say("Confirmã aceastã acþiune din nou!")
			say("")	
			local c = select("Da","Nu")
			if 2 == c then
				return
			end
            		say_title("Pergament Reset Skill:")
			say("")	
			say("Competenþele tale au fost resetate cu succes!")
			say("")
			pc.remove_item(71002)
			pc.clear_skill()
			pc.set_skill_group(0)
        	end
        end
 end

Cod: Selectaţi tot

	int pc_clear_skill(lua_State* L)
	{
		LPCHARACTER ch = CQuestManager::instance().GetCurrentCharacterPtr();
		if ( ch == NULL ) return 0;

		ch->ClearSkill();

		return 0;
	}

Cod: Selectaţi tot

			{ "clear_skill",                pc_clear_skill          },

Cod: Selectaţi tot

affect.remove_good()
--sterge magiile precum buff