Cod: Selectaţi tot

quest pet_system begin
    state start begin
        function get_pet_info(itemVnum)
            pet_info_map = {
            --  [ITEM VNUM] MOB_VNUM, DEFAULT NAME
                [53001]     = { 34001, gameforge.pet_system._010_say ,0},
                [53002]     = { 34002, gameforge.pet_system._020_say ,0},
		[53003]     = { 34003, gameforge.pet_system._040_say ,0},
		[53005]     = { 34004, gameforge.pet_system._050_say, 1},
		[53006]     = { 34009, gameforge.pet_system._099_say, 1},
                [53010]     = { 34008, gameforge.pet_system._060_say, 0},
                [53011]     = { 34007, gameforge.pet_system._070_say, 0},
                [53012]     = { 34005, gameforge.pet_system._080_say, 0},
                [53013]     = { 34006, gameforge.pet_system._090_say, 0},
                [53007]     = { 34010, gameforge.pet_system._100_say, 0},
                [53008]     = { 34011, gameforge.pet_system._110_say, 0},
                [53009]     = { 34012, gameforge.pet_system._120_say, 0},
                -- GF specials
                [38200]     = { 34006, gameforge.pet_system._090_say, 0},
                [38201]     = { 34006, gameforge.pet_system._090_say, 0},
		[53014]     = { 34013, gameforge.pet_system._130_say, 0},
		[53015]     = { 34014, gameforge.pet_system._140_say, 0};
		[53016]     = { 34015, gameforge.pet_system._150_say, 0},
		[53017]     = { 34016, gameforge.pet_system._160_say, 0},
		[53019]     = { 34019, gameforge.pet_system._170_say, 0},
		[53018]     = { 34020, gameforge.pet_system._175_say, 0},
		[53020]     = { 34017, gameforge.pet_system._180_say, 0},
		[53021]     = { 34018, gameforge.pet_system._185_say, 0},
		[53023]     = { 34021, gameforge.pet_system._193_say, 0},
		[53024]     = { 34022, gameforge.pet_system._195_say, 0},


            }

            itemVnum = tonumber(itemVnum)

            return pet_info_map[itemVnum]
        end
		function get_spawn_effect_file(idx)
			effect_table = {
				[0] = nil,
				[1] = "d:\\\\ymir work\\\\effect\\\\etc\\\\appear_die\\\\npc2_appear.mse",
			}
			return effect_table [idx]
		end
        when 38200.use or 38201.use or 53007.use or 53013.use or 53012.use or 53011.use or 53010.use or 53006.use  or 53005.use or 53002.use or 53001.use or 53003.use or 53008.use or 53009.use or
			 53014.use or 53015.use  or 53016.use or 53017.use or 53019.use or 53018.use or 53020.use or 53021.use or 53023.use or 53024.use begin
            local pet_info = pet_system.get_pet_info(item.vnum)

            if null != pet_info then

                local mobVnum = pet_info[1]
                local petName = pet_info[2]
				local spawn_effect_file_name = pet_system.get_spawn_effect_file(pet_info[3])

                if true == pet.is_summon(mobVnum) then
					if spawn_effect_file_name != nil then
						pet.spawn_effect (mobVnum, spawn_effect_file_name)
					end
                    pet.unsummon(mobVnum)
                else
                    if pet.count_summoned() < 1 then
                        pet.summon(mobVnum, petName, false)
                    else
                        syschat(gameforge.pet_system._030_chat)
                    end
					if spawn_effect_file_name != nil then
						pet.spawn_effect (mobVnum, spawn_effect_file_name)
					end
                end -- if pet.is_summon
            end  -- if null != pet_info
        end -- when
    end -- state
end -- quest

Cod: Selectaţi tot

quest pet_system begin    state start begin
      when 53001.use or 53002.use or 53003.use or 53005.use or 53006.use or 53007.use or 53008.use or 53009.use begin
         local ItemValue = item.vnum
         for i = 1, table.getn(PetArray), 1 do
            if PetArray[i][1] == ItemValue then
               local PetState = PetArray[i][2]
               if pc.getqf("pet_index") == 0 then
                  if pc.getqf(PetState) == 0 then
                     local check = inizializza(i)
                     if check != 0 then return end
                     pc.setqf(PetState, 1)
                  end
                  pc.setqf("pet_index", i)
                  evoca(i, PET_SUMMON)
               else
                  evoca(i, PET_UNSUMMON)
                  pc.setqf("pet_index", 0)
               end
            end
         end
        end
        when 20120.click with pc.getqf("pet_index") == 1 begin    show_pet_menu(1)    end
        when 20121.click with pc.getqf("pet_index") == 1 begin    show_pet_menu(1)    end
        when 20122.click with pc.getqf("pet_index") == 1 begin    show_pet_menu(1)    end
        when 20123.click with pc.getqf("pet_index") == 2 begin    show_pet_menu(2)    end
        when 20124.click with pc.getqf("pet_index") == 2 begin    show_pet_menu(2)    end
        when 20125.click with pc.getqf("pet_index") == 2 begin    show_pet_menu(2)    end
        when 20126.click with pc.getqf("pet_index") == 3 begin    show_pet_menu(3)    end
        when 20127.click with pc.getqf("pet_index") == 3 begin    show_pet_menu(3)    end
        when 20128.click with pc.getqf("pet_index") == 3 begin    show_pet_menu(3)    end
        when 20129.click with pc.getqf("pet_index") == 4 begin    show_pet_menu(4)    end
        when 20130.click with pc.getqf("pet_index") == 4 begin    show_pet_menu(4)    end
        when 20131.click with pc.getqf("pet_index") == 4 begin    show_pet_menu(4)    end
        when 20132.click with pc.getqf("pet_index") == 5 begin    show_pet_menu(5)    end
        when 20133.click with pc.getqf("pet_index") == 5 begin    show_pet_menu(5)    end
        when 20134.click with pc.getqf("pet_index") == 5 begin    show_pet_menu(5)    end
        when 20135.click with pc.getqf("pet_index") == 6 begin    show_pet_menu(6)    end
        when 20136.click with pc.getqf("pet_index") == 6 begin    show_pet_menu(6)    end
        when 20137.click with pc.getqf("pet_index") == 6 begin    show_pet_menu(6)    end
        when 20138.click with pc.getqf("pet_index") == 7 begin    show_pet_menu(7)    end
        when 20139.click with pc.getqf("pet_index") == 7 begin    show_pet_menu(7)    end
        when 20140.click with pc.getqf("pet_index") == 7 begin    show_pet_menu(7)    end
        when 20141.click with pc.getqf("pet_index") == 8 begin    show_pet_menu(8)    end
        when 20142.click with pc.getqf("pet_index") == 8 begin    show_pet_menu(8)    end
        when 20143.click with pc.getqf("pet_index") == 8 begin    show_pet_menu(8)    end

      when kill with pc.getqf("pet_index") != 0 begin
            local i = pc.getqf("pet_index")
         if pc.get_level() > (npc.get_level() + 15) then
            return
         end
         if pc.get_level() <= npc.get_level() then
            PetGiveExp(i, 5)
         elseif pc.get_level() <= (npc.get_level() + 5) then
            PetGiveExp(i, 4)
         elseif pc.get_level() <= (npc.get_level() + 10) then
            PetGiveExp(i, 3)
         elseif pc.get_level() <= (npc.get_level() + 15) then
            PetGiveExp(i, 1)
         end
      end
      
        when logout with pc.getqf("pet_index") != 0 begin
            local i = pc.getqf("pet_index")
            evoca(i, PET_UNSUMMON)
            pc.setqf("pet_index", 0)
        end
        when login with pc.getqf("pet_index") != 0 begin
            local i = pc.getqf("pet_index")
            evoca(i, PET_UNSUMMON)
            pc.setqf("pet_index", 0)
        end
    end 
end