Results 1 to 1 of 1
  1. #1
    Sparkk
    Sparkk is offline
    New member Sparkk's Avatar
    Join Date
    2013 Sep
    Location
    Marseille, France
    Posts
    5
    Thanks Thanks Given 
    0
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0

    Post [Quest] Super Soul Stone

    Hi everyone, I'm here to give you a nice Quest I made just for fun.

    The principle is simple, the item acts like the normal Soul Stone, but gives you a Perfect skill with 100%
    Chance and no rank loss. I can edit the quest on demand, for those who want to give less chance or rank loss.
    Here it is:


    Code:
    quest super_ss begin
        state start begin
    		when Your_Item_ID.use begin
    			if pc.get_skill_group() == 0 then
    				say("None of your skills are available to")
    				say("try to increase their level to Perfect Master")
    				return
    			end
    
    			local result = super_ss.BuildGrandMasterSkillList(pc.get_job(), pc.get_skill_group())
    
    			local vnum_list = result[1]
    			local name_list = result[2]
    
    			say_title("Super Soul Stone: ")
    			say("Choose the Skill you want to upgrade")
    			say("to Perfect Master.")
    			say("")
    
    			local menu_list = {}
    			table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
    			table.insert(menu_list, "Cancel") 
    			local s=select_table(menu_list)
    			
    			if table.getn(menu_list) == s then
    				return
    			end
    
    			local skill_name=name_list[s]
    			local skill_vnum=vnum_list[s]
    			local skill_level = pc.get_skill_level(skill_vnum)
    
    			local title=string.format("Super Soul Stone: %s", skill_name)
    
    			say_title(string.format("%s", title))
    			say("")
    			say("Perfect Master training is very rare here")
    			say("It's a chance you have this stone with you.")
    			say("It is very rare.")
    			say("")
    			say_reward("The upgrade will not reduce your Rank")
    			say_reward("thanks to this special stone.")	
    			say("")
    			
    			local s=select("Continue", "Cancel")	
    
    			if s==2 then
    				return
    			else
    				if pc.count_item("50526") == 0 then
    					say("Your Soul Stone seems to have disappeared from")
    					say("your inventory. Try again later with a Super SS.")
    					return
    				end
    
    				pc.set_skill_level(skill_vnum, 40)
    				say_title(string.format("%s", title))
    				say("")
    				say("Congratulations! You did it! Your skill is")
    				say("now Perfect Master.")
    				say("")
    				item.remove()
    			end
    		end
    
    		function BuildGrandMasterSkillList(job, group)
    
    			GRAND_MASTER_SKILL_LEVEL = 30
    			PERFECT_MASTER_SKILL_LEVEL = 40
    
    			local skill_list = special.active_skill_list[job+1][group]
    			local ret_vnum_list = {}
    			local ret_name_list = {}
    
    			table.foreach(skill_list, 
    				function(i, skill_vnum) 
    				local skill_level = pc.get_skill_level(skill_vnum)
    
    				if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
    
    					table.insert(ret_vnum_list, skill_vnum)
    					local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
    
    					if name == nil then 
    						name=skill_vnum
    					end
    					table.insert(ret_name_list, name)
    				end
    			end)
    			return {ret_vnum_list, ret_name_list}
    		end
    	end
    end
    Don't forget to change the Item ID to make it work !

Similar Threads

  1. super pets are on sale
    By famousgolds in forum Selling Place
    Replies: 0
    Last Post: 2013-09-05, 03:20 AM
  2. [Release] Super PB Trainer 3.0 (01/08/2013)
    By patrickpp in forum Point Blank
    Replies: 8
    Last Post: 2013-08-05, 01:27 AM
  3. Forsaken World Quest Folia Nightmare [45] Special Quest
    By victorgm12 in forum Forsaken World Guides, Tutorials
    Replies: 0
    Last Post: 2012-06-19, 01:54 PM
  4. [Guide] Skanta's Stone Coffin Quest Lv. 48
    By kitanasora in forum Aika Guides, Tutorials
    Replies: 0
    Last Post: 2012-01-06, 05:45 AM
  5. [Info] Aika Mount Stone Explanation
    By hudas123 in forum Aika Guides, Tutorials
    Replies: 20
    Last Post: 2010-11-02, 11:59 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •