How does creature farm work??

---- Lua ｽｺﾅｩｸｳﾆｮ ｾﾏﾈ｣ﾈｭ
function get_module_name()
             return "NPC_Creature_farm"
end

   -- "ﾀﾌｰﾇ ｺ・ｮ ﾀﾖｴﾂｵ･ ﾀﾌｰﾍｵｵ DBｷﾎ ｳﾖｾ﨨ﾟ ﾇﾑｴﾙ" ｶ・ｻｰ｢ｵﾇｽﾃｴﾂ
   -- ｺﾎｺﾐｵ鯀｡ ｴ・ﾘｼｭｴﾂ ｿｬｶ・ﾁﾖｼｼｿ・

math.randomseed( get_os_time() )

   --============================================================
   --             <<<<<< ﾅｩｸｮﾃﾄ ｳ・NPC >>>>>>
   --============================================================
function NPC_Creature_Farm_init()
	cprint( "!ﾅｩｸｮﾃﾄ ｳ・NPC ｰ｡ｵｿ" )
	set_npc_name(  "@91000349"  )
end
 
ticket_table = 	{
					{{1,1,1,2,2,3},
					{3,3,3,6,6,9}},
								
					{{2,2,2,3,3,4},
					{6,6,6,9,9,12}},
							
					{{2,2,2,3,3,4},
					{6,6,6,9,9,12}},
							
					{{3,3,3,4,4,5},
					{9,9,9,12,12,15}},
					
					{{3,3,3,4,4,5},
					{9,9,9,12,12,15}},	
							
					{{4,4,4,5,5,6},
					{12,12,12,15,15,18}}
				}
				
--ticket_code_table = {}
--ticket_code_table[ "259200" ] = {}
--ticket_code_table[ "259200" ][ "0" ] = { 710005 } -- , ﾃﾟｰ｡ｵﾈ ｾﾆﾀﾌｵ・... }
--ticket_code_table[ "259200" ][ "1" ] = { 710007 } -- , ﾃﾟｰ｡ｵﾈ ｾﾆﾀﾌｵ・... }
--ticket_code_table[ "604800" ] = {}
--ticket_code_table[ "604800" ][ "0" ] = { 710006 } -- , ﾃﾟｰ｡ｵﾈ ｾﾆﾀﾌｵ・... }
--ticket_code_table[ "604800" ][ "1" ] = { 710008 } -- , ﾃﾟｰ｡ｵﾈ ｾﾆﾀﾌｵ・... }

--cracker_code_table = { 2902163, 2902162, 2902167, 2902166, 2902161 }

slot_usable = {}
slot_usable = { 0, 0, 0 }

function NPC_Creature_Farm_nurse_handler()
           local rate = math.random(1, 10)
           if rate < 6 then
                      insert_item( 710009, 1 )
                     return 1
           end
           return 0
end

function NPC_Creature_Farm_contact()
 
	-- ｴﾙﾀﾌｾﾎｱﾗ ﾃ箙ﾂ
	dlg_title( "@91000350" ) --ﾅｩｸｮﾃﾄ ｳ・ﾁﾖﾀﾎ ｼﾒｳﾄ
	dlg_text( "@91000351" ) -- npc ｴ・・	dlg_menu( "@91000352", "NPC_Creature_Farm_explain()" ) -- ﾅｩｸｮﾃﾄ ｳ・ｼﾒｰｳ
	dlg_menu( "@91000353", "show_creature_farm_window()" ) -- ﾅｩｸｮﾃﾄ ｰ・ｮ

	dlg_menu( "@90010002", " " )
	dlg_show()
end

function NPC_Creature_Farm_explain()
	dlg_title( "@91000350" ) --ﾅｩｸｮﾃﾄ ｳ・ﾁﾖﾀﾎ ｼﾒｳﾄ
	dlg_text( "@91000358" ) -- ｾ鋐ｲ ｰﾔ ｱﾃｱﾝﾇﾘ?
	dlg_menu( "@91000355", "NPC_Creature_Farm_Whatis()" ) -- ﾅｩｸｮﾃﾄ ｳ蠡ﾌｶ・	dlg_menu( "@91000356", "NPC_Creature_Farm_Creature_Growup()" ) -- ﾅｩｸｮﾃﾄ ｼｺﾀ・	dlg_menu( "@91000357", "NPC_Creature_Farm_Whatis_Creature_Care()" ) -- ｵｹｺｸｱ・	dlg_menu( "@90010003", "NPC_Creature_Farm_contact()" )	
	dlg_menu( "@90010002", " " )
	dlg_show()
end


function NPC_Creature_Farm_Whatis() -- ﾅｩｸｮﾃﾄ ｳ蠡ﾌｶ・	dlg_title( "@91000350" ) 
	dlg_text( "@91000359" )
	dlg_menu( "@90010003", "NPC_Creature_Farm_contact()" )
	dlg_menu( "@90010002", " " )
	dlg_show()
end


function NPC_Creature_Farm_Creature_Growup() -- ﾅｩｸｮﾃﾄ ｼｺﾀ・	dlg_title( "@91000350" )
	dlg_text( "@91000360" ) 
	dlg_menu( "@90010003", "NPC_Creature_Farm_contact()" )
	dlg_menu( "@90010002", " " )
	dlg_show()
end


function NPC_Creature_Farm_Whatis_Creature_Care() -- ｵｹｺｸｱ・	dlg_title( "@91000350" ) 
	dlg_text( "@91000361" ) 
	dlg_menu( "@90010003", "NPC_Creature_Farm_contact()" )
	dlg_menu( "@90010002", " " )
	dlg_show()
end